Program Ticket Pesawat Terbang

Pada kesempatan ini admin ingin membagi contoh coding program ticket pesawat terbang, mohon kiranya jika ada masukan atau koreksi dari yang lain tolong sampaikan pada komentar, terima kasih 

program harga_tiket_pesawat;

uses crt;

var

np,ket,nb:array[1..15]of string;

jb:array[1..15] of real;

harkot,harsih:array[1..15]of real;

jml,a:byte;

tot,b:real;

harga:integer;

potongan:real;

lagi:char;

label awal,akhir;

begin

awal:

clrscr;