Срочно! информатика. Перевести на Паскаль и написать программу для решения этого...

попробуем
program lll;
var
x,x1:real;
res1,res2,res3,res4:real;
begin
readln(x);
x1:=abs(x);
if (x<0) then
begin
res1:=2*sin(x1)
end
else
if(x>0) then
if(x<=5) then
begin
res2:=sqrt(x);
end;
else
if (x>5)
then if (x<=10) then
res3:=2x*x-sqr(x);
end
else
res4:=cos(2*x)/a;
end;
end.