contoh program 15

uses crt;

var

       bul, beb: integer;

begin

clrscr;

       write('Jumlah bebek sekarang 1000 bebek'); writeln;

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

     

       beb:= 1000;

     

       for bul := 1 to bul do

                   begin

                   beb:= (beb * 20 div 100) + 1;

                   end;

                 

       write('Jumlah bebek setelah ', bul, ' Bulan kedepan   : ', beb);

       readln;

end.