СРОЧНО!!!! На паскале надо составить программу, которая будет вычислять значение y в зависимости от значения х для y=4x-x2+1. Формат вывода результата «При х = ___ y = ___»

Вопрос школьника по предмету Информатика

СРОЧНО!!!!
На паскале надо составить программу, которая будет вычислять значение y в зависимости от значения х для y=4x-x2+1.
Формат вывода результата «При х = ___ y = ___»

Ответ учителя по предмету Информатика

program xoty;

var x,y:integer;

begin

  write(‘Введите x число ‘); readln(x);

  y:=4*x-x*2+1;

  writeln(‘При x =  ‘,x,’   y = ‘,y);

end.