Program formulir angsuran biaya dengan turbo pascal

Di sini saya membagi tautan bagaimana membuat program aplikasi formulir angsuran biaya, saya membuat nya dengan bahasa pascal, langsung saja kita bahas …

pertama buka turbo pascal nya atau tpw 1.5,, kemudian tuliskan listing code di bawah ini..

program angsuran_biaya;
uses wincrt;
var no, tot, bayar, sisa,tanggal, bln, thn : longint;
      nm, tempat, jur :  char;

begin

writeln('      FORMULIR ANGSURAN BIAYA');
writeln;
write('No                    : ');readln(no);
write('Nama                  : ');readln(nm);
write('Tempat, Tanggal Lahir : ');readln(tempat);

gotoxy(35,5);read(tanggal);
if tanggal > 30 then
begin
write('tanggal yang anda masukkan salah!');
readkey; donewincrt;
end;

gotoxy(38,5);read(bln);
if bln > 12 then
begin
write('bulan yang anda masukkan salah!');
readkey; donewincrt;
end;

gotoxy(41,5);read(thn);
if thn > 1996 then
begin
write('tahun yang anda masukkan salah!');
readkey; donewincrt;
end;

write('Jurusan               : ');readln(jur);
write('Total Biaya           : Rp.');readln(tot);
write('Bayar                 : Rp.');readln(bayar);
writeln('====================================');
sisa:=bayar-tot;
write('Sisa Pembayaran       : Rp.',sisa);
                       
end.

Dan ini hasil layout dari program di atas..