Contoh Soal Perulangan Bahasa Pemrograman Pascal

Assalamualaikum wr. wb

kali ini saya akan membahas penggunaan struktur perulangan,
contoh kasus :
Menentukan Bunga Peminjaman yang harus dibayarkan,
setelah kita menginput
Pinjaman Awal
Besar Bunga Yang telah ditetapkan
Lamanya pinjaman (Periode)

jadi klw masalahnya seperti diatas
kita bisa buat scriptnya k sebagai berikut  :

uses crt;
var
   awal,akhir,rpbunga   : real;
   bunga, lama, i       : integer;
   mau                  : char;
begin
     repeat
     clrscr;
       writeln('');
       writeln('---------TRI ABRIYANTO PUTRA--------');
       writeln('------------- TI.13 --------------');
       writeln('------------20142205140-----------');
       writeln('');


       writeln;
       write('Pinjaman Awal = Rp. ');readln(awal);
       write('Bunga [%]     = ');readln(bunga);
       write('Lamanya Pinjaman [Periode] = ');readln(lama);
       writeln('------------------------------------------------');
       writeln(' Periode Bunga [%] Pinjaman Pinjaman Bunga [Rp] ');
       writeln('                     Awal     Akhir');
       writeln('------------------------------------------------');
       i:=1;
       while i <= 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;
            i:=i+1;
       end;
       writeln('Mau Menghitung Lagi ? [Y/N] : ');readln(mau);
       until mau='0';
readln;
end.

dan berikut hasilnya setelah dicompiler