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

Var
x:real;
Begin
Write('x = ');ReadLn(x);
if x lt;= -12 then x:=-x*x
   else if (-12 lt; x)and(x lt; 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 (alt;b)abd(blt;c) then Write('Правильно')
else Write('Неверно')
End.