contoh syntax pascal

program tiket;
uses wincrt;
var
   varulang:char;
   napen,napes,hr,kls:string;
   ht,jml,byr:longint;
begin
   write('nama penumpang='); readln(napen);
   write('nama pesawat=');readln(napes);
   write('hari=');readln(hr);
   write('kelas=');readln(kls);
   if (hr='senin') and (kls='VIP') or (hr='selasa') and (kls='VIP') then
      ht:=400000
      else if (hr='rabu') and (kls='VIP') or (hr='kamis') and (kls='VIP')or (hr='jumat') and (kls='VIP') then
        ht:=400000
        else if (hr='senin') and (kls='EKO') or (hr='selasa') and (kls='EKO') then
         ht:=225000
          else if (hr='rabu') and (kls='EKO') or (hr='kamis') and (kls='EKO') or (hr='jumat') and (kls='EKO')then
          ht:=225000
          else if (hr='sabtu') and (kls='VIP') or (hr='minggu') and (kls='VIP') then
          ht:=550000
           else if (hr='sabtu')and (kls='EKO') or (hr='minggu') and (kls='EKO') then
          ht:=400000
          else
            writeln('anda salah input,pakai huruf kecil');
   writeln('harga tiket=',ht);
  
   end.