Contoh Program penyewaan Komik

program SLIP_PENYEWAN_KOMIK;
uses crt;
type data = record
     namik: string;
     kdmik: string;
end;
var
    km : array [1..100] of data;
    i,n : integer;

    nama,nik,alm,tgl,nohp,bn : string;
    jum,by : real;
begin

clrscr;
write('');
write('Nama Penyewa      = '); readln (nama);
write('Nomer Induk KTP   = '); readln (nik);
write('Alamat Penyewa    = '); readln (alm);
write('Tanggal Penyewaan = '); readln (tgl);
write('No Hp             = '); readln (nohp);
write('Jumlah Sewa       = '); readln (jum);
begin
clrscr;
writeln('INPUT DATA KOMIK YANG DIPINJAM');
write('Masukan jumlah komik yang di sewa = ');readln(n);
for i:= 1 to n do
begin
clrscr;
writeln('');
 gotoXY(5,2+1);writeln('KOMIK = ',i);
 gotoXY(5,3+i);writeln;
 gotoXY(5,4+i);write('KODE           :'); readln (km[i].kdmik);
 gotoXY(5,5+i);write('Nama Komik     :'); readln (km[i].namik);
 end;
 clrscr;
gotoXY(5,2);writeln('-------------------SLIP PENYEWAAN KOMIK-----------------');
gotoXY(5,3); writeln('');
gotoXY(5,4); writeln('========================================================');
gotoXY(5,5); writeln('Nama Penyewa        = ',nama);
gotoXY(5,6); writeln('Nomer Induk KTP     = ',nik);
gotoXY(5,7); writeln('Alamat Penyewa      = ',alm);
gotoXY(5,8); writeln('Tanggal paenyewaan  = ',tgl);
gotoXY(5,9); writeln('No Hp               = ',nohp);
gotoXY(5,10); writeln('Jumlah sewa        = ',jum:4:0);
gotoXY(5,11);writeln('========================================================');
gotoXY(6,12); writeln('NO');
gotoXY(11,12); writeln('KODE');
gotoXY(25,12); writeln('NAMA KOMIK');
 gotoXY(5,13);writeln('--------------------------------------------------------');
 for i:= 1 to n do
 begin
 by:=7000*jum;
 if by > 21000 then bn:='GARIS 1 KOMIK'
 else bn:='TIDAK ADA';

 gotoXY(6,14+i);Writeln(i:2);
 gotoXY(11,14+i);writeln(km[i].kdmik);
 gotoXY(25,14+i);writeln(km[i].namik);
 end;
 end;
 gotoXY(5,15+i);writeln('========================================================');
gotoXY(5,15+i); writeln('');
gotoXY(5,16+i); writeln('Biaya perKomik   =  Rp 7000');
gotoXY(5,17+i); writeln('Total biaya      =  Rp ',by:10:0);
gotoXY(5,18+i); writeln('Bonus            =    ',bn);
gotoXY(5,19+i); writeln('Nb : Pengenbalian paling lambat adalah satu minggu ');
gotoXY(5,20+i); writeln('setelah peminjaman ');
gotoXY(5,21+i); writeln('========================================================');
 readln;
end.