Program anton4nk;
uses crt;
var x, f : real;
begin
clrscr;
readln(x);
f:=power(x,2)+2*x+3;
writeln(f);
end.
Если есть вопросы, задавай.
