ПАСКАЛЬ ABC! Пожалуйста посчитайте ПОЖАЛУЙСТА С ЭТОЙ ЗАДАЧЕЙ

var
x:real;
Begin
Write('x = '); Readln(x);
if (x > 5) then
  Write('y = ', x*x + 1)
else 
  Write('y = ', 3 - x);
end.


x = 4.5
y = -1.5
~~~~~~~
x = 6
y = 37