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

[Домовой]

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

[-Volvo-]

Ты значение T не изменяешь в цикле...
У меня это делает строка

T := T + h;

[Домовой]

ай... вот и поспешишь
Спасибо за помощь ))
Если кому понадобится, вот рабочая версия:

Код

program zikl_6;

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

begin

   write('‚ўҐ¤ЁвҐ §­ зҐ­ЁҐ x: ');
   readln(x);
   write('‚ўҐ¤ЁвҐ Їа®¬Ґ¦гв®Є [a;b] зҐаҐ§ Їа®ЎҐ«: ');
   readln(a, b);
   write('‚ўҐ¤ЁвҐ и Ј h: ');
   readln(h);
   writeln;
   n:=0; {ќв® ­®¬Ґа Ї®§ЁжЁЁ Ї® Ї®ап¤Єг}
   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);
         t:=t+h;
      end;
   readln;
end.