Program pembayaran SPP dengan pascal

program pembayaranspp;
uses wincrt; 
var 
no:integer; 
nama,tempat: string; 
blan:string; 
tgl:integer; 
bln:integer; 
thn:integer; 
biaya,bayar,sisa:longint; 
begin 
write('Nomor : ');readln(no); 
write('Nama : ');readln(nama); 
write('Tempat Lahir : ');readln(tempat); 
write('Tanggal lahir : ');readln(tgl); 
if (tgl<=31) then 
begin 
write('bulan lahir : ');readln(bln); 
end 
else 
begin 
writeln('Inputan tidak terdeteksi'); 
readln; 
donewincrt; 
end;
if (bln<=12) then 
begin 
write('tahun lahir : ');readln(thn); 

end 
else 
begin 
writeln('Inputan tidak terdeteksi'); 
readln; 
donewincrt; 
end;
if (thn<=1995) then 
begin 
write('Bayar spp bulan : ');readln(blan); 
write('Besar biaya : ');readln(biaya); 
write('Bayar : ');readln(bayar); 
sisa:=bayar-biaya; 
writeln('Sisa : ',sisa); 
end 
else 
writeln('Inputn tidak terdeteksi');
readln; 
donewincrt;
end.

Berikut adalah layout dari listing di atas

jika menginputkan tanggal melebihi batas tanggal maka akan keluar tampilan seperti di bawah ini

sekian postingan dari saya kali ini , semoga bermanfaat :D