Program Kasir Pascal

program BioskopSGC_21;

uses crt;

var harga, jml, bayar, total : Integer;

     nama, kode, teater1, teater2, teater3: String;

begin

  clrscr;

 WriteLn('====================================');

 WriteLn('====================================');

 writeln('          BIOSKOP SGC 21          ');

 WriteLn('   Jl. Raya Sukatani - Cikarang     ');

 WriteLn('====================================');

 WriteLn('====================================');

 WriteLn('Film yang sedang tayang');

  WriteLn('1. Dilan 1991');

  WriteLn('2. Jalangkung');

  WriteLn('3. warkop DKI');

WriteLn('====================================');

  WriteLn('===================================');

 WriteLn('====================================');

 writeln('               LAYAR                ');

  WriteLn('====================================');

 WriteLn('a1, a2, a3, a4 °°°° b1, b2, b3, b4');

 WriteLn('c1, c2, c3, c4 °°°° d1, d2, d3, d4');

 WriteLn('e1, e2, e3, e4 °°°° f1, f2, f3, f4');

 WriteLn('g1, g2, g3, g4 °°°° h1, h2, h3, j4');

 WriteLn('====================================');

 WriteLn('====================================');

  WriteLn('===================================');

 writeln('          TEATER YANG KOSONG        ');

 WriteLn('====================================');

  WriteLn('===================================');

 WriteLn('====================================');

 Write('Masukan kode BISKOP  = ');readln(kode);

 Write('Masukan Tempat Duduk  = ');readln;

if kode='A01' then

    begin

    nama:='Dillan 1991';

    harga:=35000;

    teater1:='Ruang Teater 1';

    end

    else if kode='A02' then

    begin

    nama:='Danur';

    harga:=35000;

    teater2:='Ruang Teater 2';

    end

    else if kode='A03' then

    begin

    nama:='Warkop DKI';

    harga:=35000;

     teater3:='Ruang Teater 3';

    end;

WriteLn('Filem yang anda Tonton    = ',nama);

    WriteLn('Harga barang Tiket        = ',harga);

    WriteLn;

    Write('Masukan Berapa Pesanan Tiket  = '); readln(jml);

    total:=harga*jml;

    WriteLn('Total Bayar Tiket           = ',total);

    WriteLn;

    Write('Masukan pembayaran            = ');ReadLn(bayar);

    if bayar >=total then

    begin

    WriteLn('Kembalian anda              = ',bayar-total);

    end

    else

    WriteLn('Hutang anda                 = ',total-bayar);

    WriteLn;

  WriteLn('====================================');

    writeln('             Terimaksih             ');

    writeln('        Selamat Datang Kembali      ');

    WriteLn('====================================');

    readkey;

  readln;

end.