Страницы 140-148 §3.3 номер 2, ГДЗ по информатике за 8 класс к учебнику Босовой

Program z2;

var

x: integer;

y: real;

begin

       writeln(‘x>’);

       readln(x);

       y:=x+2.5;

       y:=y*x;

       y:=y-1;

       y:=y*x;

       y:=y+1;

       write(‘y=’,y:4:2);

end.