Pascal написать программу, которая выводит таблицу значений

program Calc;

const

 abeg = -3.0;

 aend =  7.0;

 da   =  0.1;

var

 a: Double;

begin

 a := abeg;

 while a <= aend do begin

   WriteLn (a :3 :1, 2 * Sqr (a) + 4 * a - 1 :15 :10);

   a := a + da;

 end;

  ReadLn;

end.

Объяснение:

da - шаг изменения а. нужен другой поменяйте