contoh program 17

uses crt;

var

       uan, bun: real;

       bul: integer;

begin

clrscr;

       write('Masukkan Jumlah Uang            : '); readln(uan);

       write('Masukkan Berapa bulan kedepan   : '); readln(bul);

       

       for bul := 1 to bul do

       begin

                   bun := uan * 0.02;

                   uan := uan + bun;

       end;

       

       write('Jumlah Uang setelah ', bul, ' bulan, adalah ', uan:0:0); readln;

end.