Listing Program :
Program pascal;
uses wincrt;
var
no:integer;
nama,t,aslsekolah:string;
tanggal,bln,thn : longint;
biaya_pen,biaya_akom,total:longint;
begin
writeln('============PENDAFTARAN PESERTA TOUR==================');
writeln;
write('Nomor Urut : ');readln(no);
write('Nama : ');readln(nama);
write('Asal Sekolah : ');readln(aslsekolah);
write('Tempat/Tanggal Lahir : ');readln(t);
gotoxy(33,6);read(tanggal);
if tanggal > 30 then
begin
write('tanggal yang anda masukkan salah!');
readkey; donewincrt;
end;
gotoxy(36,6);read(bln);
if bln > 12 then
begin
write('bulan yang anda masukkan salah!');
readkey; donewincrt;
end;
gotoxy(41,6);read(thn);
if thn > 1996 then
begin
write('tahun yang anda masukkan salah!');
readkey; donewincrt;
end;
write('Biaya Pendaftaran : ');readln(biaya_pen);
write('Biaya Akomodasi : ');readln(biaya_akom);
total:=biaya_pen + biaya_akom;
writeln('Total Biaya : ',total);
end.
Tampilan Programnya
