Найди значение функций у=+6 ,где х вводится с клавиатурой. pascalabc . заранее .

Uses crt;
var x,y:real;
begin
writeln('Введите х');
readln(x);
y:=3*sqr(x)+6;
writeln('y(',x,')= ', y);
end.