Y=bx^2 + 3x - 1 по языку паскаль

program kvadratnoe_uravnenie;

var y, b, x: integer;

begin

writeln ('Введите y');

readln (y);

writeln ('Введите b');

readln (b);

writeln ('Введите x');

readln (x);

y = (b*x*x) + (3*x) - 1;

writeln ('Решением квадратного уравнения bx^2 + 3x - 1 является ', y);

end.