Написать программу расчета денег на банковском счету - Turbo Pascal

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

составить блок-схему и написать программу расчета денег на банковском счету, если с рождения на счету 10 тысяч долларов, а годовая ставка 11%. Вывести результат в рублях.

Решение задачи: «Написать программу расчета денег на банковском счету»

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

var
  g,p,s,c:real;
  n,i:integer;
begin
  p:=10000;//начальный вклад
  g:=11;//% ставка
  c:=73.32;// курс доллара
  write('n=');readln(n); //количество лет
  s:=p;
  for i:=1 to n do  s:=s+s*g/100;
  writeln('s=',s*c:0:2);
end.

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

Объявляются переменные: g, p, s, c, n, i, которые будут использоваться в программе.
Переменная p инициализируется значением 10000, что представляет начальный вклад.
Переменная g инициализируется значением 11, что представляет процентную ставку.
Переменная c инициализируется значением 73.32, что представляет курс доллара.
Выводится сообщение n=, чтобы пользователь мог ввести количество лет.
Переменная s инициализируется значением p, что представляет сумму вклада.
Запускается цикл for, который выполняется n раз (количество лет), где n введено пользователем.
Внутри цикла переменная s увеличивается на сумму вклада, умноженного на процентную ставку, деленную на 100.
После выполнения цикла выводится сообщение s=, за которым следует значение переменной s, умноженное на курс доллара, с точностью до двух знаков после запятой.