PROGRAM BIOSKOP 1 DALAM PASCAL

Program bioskop;
var
pilih:integer;
filem,hari,jam:string;
harga,jml,total,bayar,diskon,tiket,kembali,anda:real;
begin
writeln('5 Filem yg di putar hari ini');
writeln('#############################');
writeln('1. Suster Ngesot ');
writeln('2. Tali Pocong Hilang');
writeln('2. Gerobak Berhantu ');
writeln('4. Hantu Brontosaurus');
writeln('5. Pemakaman kucing betina');
write('Masukkan pilihan anda : ');
readln (pilih);
case pilih of
1: begin
filem := 'Suster ngesot';
harga := 35000;
hari := 'Senin';
jam := '10.00 Wib';
end;
    2: begin
    filem := 'tali pocong hilang';
harga := 40000;
hari := 'Sabtu';
jam := '18.00 Wib';
    end;
3: begin
filem := 'gerobak berhantu';
harga := 35000;
hari := 'Rabu';
jam := '12.00 Wib';
end;
4: begin
filem := 'hantu bronto surus';
harga := 45000;
hari := 'Minggu';
jam := '10.00 Wib';
end;
5: begin
filem := 'pemakaman kucing betina';
harga := 45000;
hari := 'Sabtu';
jam := '20.00 Wib';
end;
end;
    writeln;
    writeln('###############################');
writeln('filem pilihan anda adalah :');
writeln('nama filem  : ',filem);
writeln('hari tayang : ',hari);
writeln('jam tayang  : ',jam);
writeln('harga 1 tiket : rp ',harga:5:2);
write('berapa tiket yg anda mau beli ? '); readln(tiket);
bayar := tiket * harga;
if tiket >4 then
diskon := bayar * 10/100
else diskon := 0;
total := bayar - diskon;

    writeln;
    writeln('###############################');
    writeln('jumlah biaya : rp ',bayar:5:2);
    writeln('diskon anda  : rp ',diskon:5:2);
    writeln('yg perlu anda bayar : rp ',total:5:2);
    write('uang anda    : rp ');readln(anda);
    kembali := anda - (bayar - diskon);
    writeln('kembalian    : rp ',kembali:5:2);
    readln;
end.