Вопрос на 50 балов. Напечатайте программу на языке Turbo Pascal,заранее спасибо

var  f, x: Real;begin  write('X = ');  Readln(x);  if Abs(x) <= 1 then f:=Abs(x)  else if Abs(x) <= 2 then f:=Sqr(x)  else f:=4;  Writeln('F(x) = ', f:4:2);  Readln;end.