ПАСКАЛЬ ABC! ПОМОГИТЕ ПОЖАЛУЙСТА С ЭТОЙ ЗАДАЧЕЙ

Question

ПАСКАЛЬ ABC!
ПОМОГИТЕ ПОЖАЛУЙСТА С ЭТОЙ ЗАДАЧЕЙ

---

Answer 1

Var x : integer;
beginreadln(x);
if (x>5)then
x:=x*x+1
else
x:= 3 -x;
write(x);
end.

Answer 2

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