Реализация сложения в коде программы - Turbo Pascal

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

Здравствуйте! В работе понадобилась программка для вычисления суммы, ради этого решил окунуться в мир TurboPascal, сложновато честно говоря. В общем, как должно работать: Вводишь начальную сумму + вводишь шаг(сумма, которая должна всегда плюсоваться к полученному результату), нужна возможность ввода количества шагов, например количество шагов 50 и программа сразу на экране показывает нам результаты 50 действий сложения. Что сделал: пока только плюсует шаг к полученному результату. Найдутся добрые люди, которые помогут отредактировать код так, чтобы можно было вводить количество шагов, а не тыкать каждый раз на Enter чтобы увидеть следующий шаг? П.С.: Заранее извиняюсь, если не понятно изъясняюсь.

Program 1;
uses crt;
var a,b:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
repeat
a:=a+b;
writeln(a:0:2);//жмем Enter
until readkey=#27;//выход по нажатию Esc
end.

Решение задачи: «Реализация сложения в коде программы»

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

Var
  a,b : Real;
  i,n : Longint;
Begin
  write('a,b,n = ');
  readln(a,b,n);
  For i:=1 to n do
  Begin
    writeln(a:0:2);
    a:=a+b;
  end;
  writeln(a:0:2);
  Readln;
end.

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

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

Объявляются три переменные: a, b и n. Переменная a объявлена как Real, а переменные b и n как Longint.
Выводится сообщение «a,b,n = », после чего считываются значения переменных a, b и n с помощью функции readln().
Далее идет цикл For, который выполняется n раз. Внутри цикла выводится значение переменной a с шагом 1, затем значение переменных a и b суммируются, и результат присваивается переменной a.
После завершения цикла выводится значение переменной a.
В конце программы считывается следующий входной символ с помощью функции readln().