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

Question

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

---

Answer 1

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