Решить ** язые Pascal

Question

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

---

Answer 1

Var
x:real;
Begin
Write('x = ');ReadLn(x);
if x <= -12 then x:=-x*x<br>   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 (aelse Write('Неверно')
End.