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

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