Решить на язые Pascal

Var x:real; Begin Write('x = ');ReadLn(x); if x <= -12 then x:=-x*x    else if (-12 < x)and(x < 0) then x:=x*x*x*x         else x:=x-2; WriteLn('y = ',x); End. Var    a,b,c:real; Begin Write('a = ');ReadLn(a); Write('b = ');ReadLn(b); Write('c = ');ReadLn(c); if (a