LATIHAN F NO 1

uses wincrt;
var
 awal,akhir,rpbunga:real;
 bunga,lama,i      :integer;
 mau               :char;
begin
repeat
clrscr;
 write('pijaman awal = Rp. ');readln(awal);
 write('bunga [%]= ');readln(bunga);
 write('lamanya pinjaman [periode] = ');readln(lama);
 writeln('--------------------------------------');
 writeln(' periode bunga (%) pimjaman pinjaman bunga (Rp) ');
 writeln('                                                 awal akhir ');
 writeln('--------------------------------------');
 for i:=1 to lama do
  begin
   akhir:=awal+((bunga/100)*awal);
   rpbunga:=0.1*awal;
   writeln(i:5,bunga:9,awal:11:0,akhir:11:0,rpbunga:10:0);
   awal:=akhir;
  end;
 writeln('--------------------------------------');
 Write('mau menghitug lagi ? [Y/N]:');readln(mau);
 until mau='n';
end.