{* Задача 10 *}

Unit ZADACH10;
Interface
Implementation
Begin
 writeln('Месячная выплата m по займу в s рублей на n лет под процент p по формуле: m = (s * r * (1 + r)n) / (12 * ((1 + r)n – 1)), где r = p / 100.');
End.

Program pas14307;

Uses zadach10.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  m : real;
  s : real;
  p : real;
  n : real;
  r : real;
  a : real;
Begin
  write('Величина заема : ');
  readln(s);
  write('Процент: ');
  readln(p);
  write('Количество лет: ');
  readln(n);
  r := p / 100;
  a := exp(ln(1 + r) * n);
  m := (s * r * a) / (12 * (a - 1));
  m := trunc(100 * m + 0.5) / 100;
  writeln; {* Вывод пустой строки *}
  writeln('Месячная выплата: ', m : 5 : 2);
  writeln('Прибыль банка: ', m * 12 * n - s : 5 : 2);
  readln
End.