{* Вычисление банковского процента *}

Unit LIN_9;
Interface
Implementation
Begin
 writeln('Вычисление банковского процента');
End.

Program lin_9;

Uses lin_9.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  a : real;
  b : real;
  c : real;
  d : real;
Begin
  writeln('Scolko dollarov bilo vlogeno');
  readln(a);
  writeln('Procentnaya stavka v god');
  readln(b);
  writeln('Na skolko dnei vlogili');
  readln(c);
  d := b * a / 100 * c / 356 + a;
  writeln('V itoge vi poluchite ', d : 5 : 2, ' dollarov');
  readkey; {* Ждем нажатия любой клавиши *}
End.