Таблица значений функции, построить такую таблицу Опции

[Домовой]

Здравствуйте.
Опять наткнулся на проблему (для меня) с задачей.
Она звучит так:
Построить таблицу... (а дальшее картинку прикрепил).
Кто-нибудь может объяснить хотя-бы задание или каким-методом его выполнять.
Я уже вроде-как понял, что через циклы.
На похожие задачи у меня есть примеры,
но они гораздо легче этой.
Спасибо.

[Домовой]

Гм... volvo... кажись понял, но вот что у меня получается - постоянное зацикливание...
просмотрел - почему то параметры не меняются...

Код

program moe;

var t, a, b, h, f, s: real;
    n: byte;

begin

   write('Введите значение x: ');
   readln(x);
   write('Введите промежуток [a,b]: ');
   readln(a, b);
   write('Введите шаг h: ');
   readln(h);
   writeln;
   n:=1; {номер позиции по порядку}
   t:=a;

   while t<=(b+h) do
      begin
         s:=1+2*t-3*sqr(t);
         f:=exp(sqr(x)+sqr(s));
         n:=n+1;
         writeln(n:5, ' | ', s:5:0, ' | ', f:5:0);
      end;

end.

t ведь так и должно вычисляться?
Я вроде с твоего примера взял.
Иль опять шо-то напутал?