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.

Contoh Screenshotnya :