Program pascal SPP

Okeh semuanya kalian luar biasa telah mengunjungi blog saya semoga apa yang saya tampilkan dalam blog ini dapat bermanfaat bagi nusa, bangsa dan agama terimakasih.

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.

Ini dia hasilnya