Program Menghitung Bunga Majemuk

program Bunga_Majemuk;
uses crt;
var
 a, b, d : real;
 i, c    : integer;
begin
 clrscr;
 write ('masukkan pinjaman : '); readln (a);
 write ('masukkan bunga [persen] : '); readln (d);
 write ('Selama [bulan] : '); readln (c);
 i := 1;
 repeat
  b := a * ( d / 100 );
  a := b + a;
  writeln ('Bulan ke-',i,':',a:12:2);
  i := i + 1;
 until i = c+1;
 readln;
end.