(в паскале) составить программу вычисления значения функции для любого х:
у=(система)

​

program ufhcn;

var x: real;

uses crt;

begin

clrscr;

writeln('вводи число');

readln(x);

if (x> =0)

then writeln('идет выполнение решения', sin(x)+2)

else writeln('нет решения');

if (x> =0)

then writeln('идет выполнение решения', sqrt(x)+sqrt(x*x)+1)

else

writeln('нет решения');

end.