ОЧЕНЬ СРОЧНО!! ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ!!

uses crt;

var x, y:real;

begin

read(x);

if x<=-70 then

y:=x*x+50

else

if (-70<x) and (x<=0) then

y:= abs(x)

else

y:=3*(x*x+1);

writeln(y);

end.