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

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