помогите решить задачу!(програмирование линейных алгаритмов)

Приложения:

Ответы

Ответ дал: kordark
1
var x,y: integer; begin readln(x); y:=x+2,5; y:=y*x; y:=y-1; y:=y*x; y:=y+1; writeln(y); end.

kordark: var x,y: integer;
begin
readln(x);
y:=x+2,5;
y:=y*x;
y:=y-1;
y:=y*x;
y:=y+1;
writeln(y);
end.
Вас заинтересует