Question

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

Answer 1

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