Program Pascal Pembayaran SPP Dengan Menggunakan Pascal

Nih gan Program pembayaran SPP di program Pascal

Langsung aja kelisting programnya:

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.

Layout:

Dibawah ini contoh layout yang salah :

Sekian Semoga Bermanfaat...