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

varx:real;BeginWrite('x = '); Readln(x);if (x > 5) then  Write('y = ', x*x + 1)else   Write('y = ', 3 - x);end.Пример:x = 4.5y = -1.5~~~~~~~x = 6y = 37