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

если баллов желая-бы 20 будет решу

Будет решил пж

ок,поверю

Напиши желая б 2-ое

делаю

Напиш. Просто 2-ое и все пж прытче

где мои баллы?

Второе задание

program example2;
var x,y:real;
begin
WriteLn('x=');
readln(x);
if xgt;=-10 then
y:= sqr(x) + 9
else if xlt;-10 then
y:= 1/sqr(x)-4;
writeln('y=',y);
end.

первое задание
program example1;
var x,y:real;
begin
WriteLn('x=');
readln(x);
y:=абс(sqr(x)-sqrt(x+3)) + cos(x)/2*x+1;
writeln('y= ', y);
end.