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

Question

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

---

Answer 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.

Comments

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.