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

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