Program Angsuran Biaya Menggunakan TPW 1.5

Assalamu'alaikum...
Kali ini saya akan coba share Tugas mata kuliah struktur data yang di berikan oleh Dosen saya, yaitu tentang Program Angsuran Biaya Menggunakan TPW 1.5.
Langsung saja, anda bisa copy listing program dibawah untuk mencoba menjalankannya :

program angsuran_biaya_idham;

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:=tot-bayar;

write('Sisa Pembayaran : Rp.',sisa);

end.