Рассчитать значения Y для значеный X равных 4, 5,…, 28, если Y задается следующей формулой: .- Pascal(Паскаль)

Y=2t^2+5,5-2
t=x+2

uses crt;

var
  x: byte;
  y: real;

begin
  clrscr;
  writeln('таблица значений функции: ');
  writeln('   x                    y');
  for i := 4 to 28 do
  begin
    y := 2 * sqr(x + 2) + 5.4 * (x + 2) - 2;
    writeln('  ', x, '                  ', y);
  end;

end.