Протабулировать функцию оператором цикла For - Free Pascal

Формулировка задачи:

В общем данную функцию необходимо было протабулировать тремя способами while и repeat я уже сделал остался цикл for (не могу догнать как это можно сделать, и вообще возможно ли это) значит вот как выглядит задание... Протабулировать функцию на интервале [a, b] с шагом h = 0.01 f(x)=exp((x-2)*ln(4)) Найти сумму значений функции в каждой точке.

Решение задачи: «Протабулировать функцию оператором цикла For»

Листинг программы

    x := a;
    for i := 1 to Round((b - a) / h) + 1 do
    begin
        WriteLn(x:0:3);
        x := x + h;
    end;

Объяснение кода листинга программы

В данном коде происходит следующее:

x := a; — присваивается значение переменной a переменной x.
for i := 1 to Round((b - a) / h) + 1 do — начинается цикл for, который будет выполняться от i = 1 до округленного значения (b - a) / h + 1.
begin — начинается блок кода.
WriteLn(x:0:3); — выводится значение переменной x с шагом в 3 единицы.
x := x + h; — значение переменной x увеличивается на значение переменной h.
end; — заканчивается блок кода.
Цикл for повторяется до тех пор, пока значение переменной i меньше или равно округленному значению (b - a) / h + 1.
Код внутри цикла выполняется для каждого значения переменной i.
Значение переменной x увеличивается на значение переменной h после каждой итерации цикла.
Результатом выполнения кода будет последовательность выводимых значений переменной x, увеличивающихся на 3 единицы каждый раз.