Program Pembayaran SPP

program pembayaran_spp;
uses wincrt;

var
no,bln,tgl,thn:integer;
nm,tl,spp:string;
bb,byr,sisa:real;

begin
write('Nomor : ');readln(no);
write('Nama : ');readln(nm);
write('Tempat Lahir : ');readln(tl);
write('Bulan Lahir (1-12): ');readln(bln);
if bln<=12 then
begin
write('Tanggal Lahir : ');readln(tgl);
if tgl<=31 then
begin
write('Tahun Lahir : ');readln(thn);
if thn>=1995 then
begin
write('Bayar SPP Bulan : ');readln(spp);
write('Besar Biaya : ');readln(bb);
write('Bayar : ');readln(byr);
if byr>=bb then
begin
sisa:=byr-bb;
write('Kembalian : ',sisa:0:0);
end
else
begin
sisa:=bb-byr;
write('Sisa : ',sisa:0:0);
end
end
end
end


else
end.