Program Pascal Dengan Menggunakan Struktur Perulangan

Oke guys kita balik lagi saya akan membuat program dengan struktruk perulangan cekibrottt !!
Baiklah sebelum kita buat programnya saya akan menjelaskan sedikit tentang struktur perulangan
Struktur Perulangan
Jika dalam sebuah program terdapat 1 atau lebih beberapa pernyataan yang akan dikerjakan secara langsung atau lebih dari 1 kali maka digunakan struktur perulangan yang statemennya terdiri dari :

Struktur Perulangan
1. For
    BU:
A. FlowChart

   

B. Program
     For Nilai Awal to nilai akhir do
     Ket:
     Blok statemen akan dikerjakan dimulai dari nilai awal sampai nilai akhir yang ditentukan pada for
Contoh Soal :
Tentukan Total Hutang 5 orang nasabah jika total hutang tersebut didapat dari hutang pokok tambah bunga, bunga didapat dari sepuluh persen kali hutang pokok kali lama pinjam ( Tahun ) =

Analisi Kasus
Input 

Nama Nasabah   : (Nm)
Nomor Nasabah : (NN)
Hutang Pokok    : (HP)
Lama Pinjam      : (LP)

Proses

Untuk
BU = (0,1*HP*LP)
TH = HP+BU

Output

1. TH
2. BU
Program
Program TotalHutang;
Uses crt;
Var
NM    string[20];
NN    :byte;
Lp      :byte;
Hp,bu :real;
TH      :real;
a         :byte;
Begin
Clrscr;
For A:= 1 to 5 do
Begin
Writeln('Inputkan Data Nasabah');
Writeln('------------------------');
Write('Masukan Nama Nasabah                    = ');readln(nm);
Write('Masukan Nomor Nasabah                  = ');readln(nn);
Write('Masukan Hutang Pokok Nasabah       = ');readln(hp);
Write('Masukan Lama Pinjam (Tahun)           = ');readln(Lp);
BU:=(0.1*hp*lp);
TH:=(HP+BU);
Write(' Bunga                                               = ',BU:10:0);
Write('Jadi Total Hutang Nasabah Adalah    = ',TH:10:0);
Readkey;
End;
End.

Ini Hasilnya : 

Catatan = Huruf A diatas sebagai indetifikasi pada program , kalo mau diganti huruf lain juga bisa                   kok terukalo mau ngitung lebih dari 5 bisa aja , tinggal ganti 5 nya jadi terserah yg                          anda mau , nah ini rahasia loh , nah kalo pas analisis kasus kan suka bingung tuh mau                      tulis yg di input apa aja , nah ini rahasianya jadi data yg di proses tidak ditulis pada                          input sekian terima kasih semoga bermanfaat !!!