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;
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:
