Составить программу на языке паскаль для высесления и вывода значения для y=2x^2-3x+1

Var x,y:real;
begin
write ('Введите x: ');
readln(x);
y:=2*x*x-3*x+1;
writeln ('y = ', y);
end.