Program Pendaftaran Peserta Tour

Listing program:

Program pascal;

uses wincrt;

var

no:integer;

nama,t,asal_sekolah:string;

tanggal,bln,thn : longint;

biaya_pen,biaya_akom,total:longint;

begin

writeln('============PENDAFTARAN PESERTA TOUR==================');

write('No. Pendaftaran      : ');readln(no);

write('Nama Lengkap         : ');readln(nama);

write('Asal Sekolah         : ');readln(asal_sekolah);

write('Tempat/tanggal Lahir : ');readln(t);

gotoxy(36,5);read(tanggal);

if tanggal > 30 then

begin

write('tanggal yang anda masukkan salah!');

readkey; donewincrt;

end;

gotoxy(39,5);read(bln);

if bln > 12 then

begin

write('bulan yang anda masukkan salah!');

readkey; donewincrt;

end;

gotoxy(42,5);read(thn);

if thn > 1996 then

begin

write('tahun yang anda masukkan salah!');

readkey; donewincrt;

end;

write  ('Biaya Pendaftaran    : Rp ');readln(biaya_pen);

write  ('Biaya Akomodasi      : Rp ');readln(biaya_akom);

total:=biaya_pen + biaya_akom;

writeln('Total Biaya          : Rp ',total);

end.

Tampilan Hasil: