Нужна програмка для расчета суммы - Turbo Pascal

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

Доброго времени суток! Нужна Ваша помощь в написании програмки, объясняю суть: вводишь определенное число, которое должно умножаться на 3% бесконечное количество раз. Очень прошу помочь с кодом, я сам не программист, но в Паскаль код перетащить смогу, помогите пожалуйста ребят)

Прошу прощения, неправильно объяснил. Что нужно: вводим начальное число к примеру 1500, затем прибавляем к этому числу например 45,71, программа показывает результат = 1545,71, затем при нажатии на Enter она должна снова прибавлять 45,71 только уже к 1545,71 и так далее. Возможно это?

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

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

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.

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

Создаются две переменные типа real, a и b, которые будут использоваться для хранения чисел, вводимых пользователем.
Выводится приглашение для ввода первого числа.
Считывается число с клавиатуры и сохраняется в переменной a.
Выводится приглашение для ввода второго числа.
Считывается число с клавиатуры и сохраняется в переменной b.
Создается переменная типа real, a, которая будет использоваться для хранения суммы двух чисел.
Запускается цикл repeat, который будет выполняться до тех пор, пока пользователь не нажмет клавишу Esc.
Внутри цикла переменная a присваивается значению a + b, то есть сумме двух чисел.
Выводится значение переменной a с помощью функции write.
Выполняется операция чтения клавиши с помощью функции readln. Если нажата клавиша Esc (#27), то цикл прекращается.
Повторяется шаги 8-10 до тех пор, пока не будет нажата клавиша Esc.
Код завершается.