{* Задача 424 *}

Unit ZADACH424;
Interface
Implementation
Begin
 writeln('Известен годовой процент на вклад с капитализацией (начисление процентов ежемесячно). Определить, сколько денег получит вкладчик в конце года, если на 1 января сумма вклад составляла 1500руб. В качестве результата вывести сумму вклада на конец каждого месяца.');
End.

Program zadach424;

Uses zadach424.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Const {* Константы *}
  Name : Array[1..12] Of String = ('Jan', 'Feb', 'Mar', 'Apr', 'May',                                         'Jun', 'Jul', 'Aug', 'Sep', 'Oct',                                         'Nov', 'Dec');
  Day : Array[1..12] Of byte = (31, 28, 31, 30, 31, 30, 31, 31,                                           30, 31, 30, 31);
Var {* Необходимые переменные *}
  stavka : real;
  i      : integer;
  Month  : Array[0..12] Of real;
Begin
  clrscr; {* Очищаем экран *}
  Month[0] := 1500;
  write('Procent: ');
  readln(stavka);
  For i := 1 To 12 Do {* Переменная i увеличивается с 1 до 12 *}
  Begin
    Month[i] := Month[i - 1] + (Month[i - 1] * stavka * Day [i] / 365 / 100);
    writeln(Name[i], ' - ', Month[i] : 2:2);
  End;
  readln; {* Ждем нажатия Enter *}
End.