вычислить значение функции

var x, y: real;
begin
   readln(x);
   if (0 <= x) and (x <= 3)
   then
      y := sqr(x)
   else
      y:= 4;
   writeln(y);
end.