Клиент положил D долларов в банк на N лет под P процентов годовых. Определить величину вклада по прошествии срока хранения с точностью до цента — Pascal(Паскаль)

   {   Клиент положил D долларов в банк на N лет под  P процентов
       годовых. Определить величину вклада по прошесвии срока
       хранения с точностью до цента.
      ╔═══════════╤═════════════╤═══════════╤════════╗
      ║  D $      │    1000     │  500      │ 1000   ║
      ╟───────────┼─────────────┼───────────┼────────╢
      ║  N лет    │       1     │  20       │ 50     ║
      ╟───────────┼─────────────┼───────────┼────────╢
      ║  P %      │      10     │  7        │ 5      ║
      ╟───────────┼─────────────┼───────────┼────────╢
      ║  Сумма $  │    1100     │  1934.84  │ 11467.4║
      ╚═══════════╧═════════════╧═══════════╧════════╝
 }

program 4;  
uses crt;
var
  vklad, prozent, a : Real;
  i, let, b : Integer;
begin
ClrScr;
     Write('Вклад  : ');
     ReadLn(vklad);
     Write('Лет    : ');
     ReadLn(let);
     Write('Процент: ');
     ReadLn(prozent);
     for i := 1 to let do
      begin
       a := (vklad / 100) * prozent;
       vklad := vklad + a
      end;
     WriteLn('Вклад  = ', vklad:10:2);
     WriteLn;
     WriteLn('Press Enter');
     ReadLn
end.