pesawat

begin
var
ktp,nama,alamat,tjn_terbang,barang
ticket2,no_ticket1

write('tentukan bandara');
read(bandara);
write('tukar ticket');
read(no_ticket1);
write('verifikasi ticket1');
if ticket1:=tidakada then
write('gagal validasi');
readln;
else
write('input data diri');
read(nomer_ktp,nama,alamat,tjn_terbang);
write('cetak no ticket bording');
read(ticket2);
readln;
write('tunggu penerbangan');
if penerbangan:=nodelay then
write('terbang');
readln;
else
write('tunggu penerbangan berikutnya atau gagalkan');
if pesawat_wait:=gagal
write('gagalkan penerbangan');
readln;
else
write('tunggu penerbangan berikutnya');
readln;
end.