Срочнооооо
Паскаль
Можно ток одно задание

вот первое program example1;var x,y:real;beginWriteLn('x=');readln(x);y:=abs(sqr(x)-sqrt(x+3)) + cos(x)/2*x+1;writeln('y= ', y);end.

второе заданиеprogram example2;var x,y:real;beginWriteLn('x=');readln(x);if x>=-10 theny:= sqr(x) + 9else if x<-10 theny:= 1/sqr(x)-4;writeln('y=',y);end.первое заданиеprogram example1;var x,y:real;beginWriteLn('x=');readln(x);y:=abs(sqr(x)-sqrt(x+3)) + cos(x)/2*x+1;writeln('y= ', y);end.