Ү=(x+1)квадрат+3(x+1) ** паскале

Question

Ү=(x+1)квадрат+3(x+1) на паскале

Answer 1

Var x,y:real;
begin
Writeln('введите значение x');
Readln(x);
y:=sqr(x+1)+3*(x+1);
Writeln('y=',y);
readln;
end.