Contoh program pembayaran SPP dengan pascal

program bayar_spp;

uses wincrt;

var

nomor, tanggal, bulan, tahun : integer;

nama, tempat : string;

bspp, biaya, bayar, sisa : real;

procedure isi;

begin

clrscr;

write ('Nomor                  : '); readln (nomor);

write ('Nama                    : '); readln (nama);

write ('Tempat lahir         : '); read (tempat);

write ('Tanggal lahir        : '); read (tanggal, bulan, tahun);

end;

begin

isi;

if tanggal > 31  then

begin

writeln ('Format tanggal salah!');

readln;

isi;

end;

if bulan > 12 then

begin

writeln ('Format bulan salah!');

readln;

isi;

end;

if (tahun < 1994) and (tahun > 1998) then

begin

writeln ('Format tahun salah!');

readln;

isi;

end;

write ('Bayar SPP/bulan      : '); readln (bspp);

writeln ('Besar biaya          : ', bspp:0:0);

write ('Bayar                : '); readln (bayar);

sisa:=(bayar)-(bspp);

write ('Sisa                 :', sisa:0:0);

end.
hasil loyout program pembayaran spp
 
hasil loyout program pembayaran spp  JIKA SALAH MEMASUKAN TANGGAL maka program akan kembali mengulang keatas dan meminta inputan baru sampai data yang dimasukan benar .

J