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...
