[CODE] PASCAL | pesawat.pas

program pesawatterbang2;

uses crt;

var
opt_delay,nama,alamat,tjn_terbang:string;
pilih,no_ktp,noticket_1,noticket_bording:integer;
refund:real;
hrg_ticket_bord:real;

begin
hrg_ticket_bord:=2000000;
clrscr;
writeln('1.jika anda sudah memiliki ticket');
writeln('2.jika anda belum memiliki ticket');
write('masukan pilihan (1/2):');
read(pilih);
if (pilih=1) then
begin
writeln('anda punya ticket');
write('masukan noticket anda (enter: 2016) : ');
readln(noticket_1);

if not (noticket_1=2016) then
begin
write('no ticket yang anda masukan salah!');
readln
end
else if (noticket_1=2016) then
begin
write('nama (ex: jhon): ');
readln(nama);
write('alamat (ex:jl.nyasar no.2): ');
readln(alamat);
write('no ktp (ex:123456): ');
readln(no_ktp);
write('tempat tujuan terbang (ex:jakarta,bali): ');
readln(tjn_terbang);

noticket_bording:=2016+2;
writeln('nama :',nama);
writeln('tujuan terbang :',tjn_terbang);
writeln('harga ticket : Rp.' ,hrg_ticket_bord:6:2);
writeln('no ticket bording anda : ',noticket_bording);
write('tekan enter untuk melanjutkan');
readln;
end;
writeln('mohon maaf ada kendala pesawat penerbangan akan di tunda');
write('apakah anda ingin membatalkan penerbangan?(yes/no)');
read(opt_delay);
if (opt_delay='yes') then
begin
writeln('refund dilakukan *(20% dari harga ticket)');
refund:=(hrg_ticket_bord*20)/100;
write('uang anda kami kembalikan sebesar Rp.',refund:4:2);
readln;
end
else if (opt_delay='no') then
begin
writeln('terimakasih untuk tidak membatalkan penerbangan');
write('pesawat berikutnya akan datang .Selamat melakukan perjalanan');
readln;
end;
end
else if(pilih=2) then
  begin
  write('anda tidak punya ticket');
  readln
  end
  else
  write('pilihan tidak ada!');

     readln;
     readln;

     end.