Напишите алгоритм для нахождения y по введенным с клавиатуры значениям x. y = 48x^2 + 4x - 1

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  Writeln('y=',48*x*x+4*x-1)
end.

Var x, y: integer;

begin

write('Введите X = ');
readln(x);

y:= 48 * x * x + 4 * x - 1;

writeln('Значение Y = ', y);

end.