program SPP

  balik lagi agan2 kali ini saya bakalan share program pascal nih kali ini tentang spp langsung aja yah nih 

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.


out putnya :