Program Bioskop

   program bioskop;
    uses wincrt;
    type kasir=record
     end;
     var
     no,judul,jenis: string[10];
     kd_p:byte;
     hrg,jml,bayar,cash,kmbl,dis:real;
    
     ul:char;
     i,n,x:integer;
     begin
   
       writeln('Selamat Datantg Di Bioskop Brema');
       writeln('____________________');
       writeln;
     
       writeln('no :');readln(no);
       writeln('judul :');readln(judul);
       writeln('Harga : ');readln(hrg);
       writeln('jumlah beli:');readln(jml);
             write('kode:');readln(kd_p);

       if kd_p= 1 then
         
       begin
       jenis:='Member';
       dis:=25/100*hrg;
bayar:=hrg*jml;
writeln('jenis :',jenis);
write('total bayar:',bayar:2:0);readln;
write('potongan harga:',dis:2:0);readln;
write('uang cash:');readln(cash);
kmbl:=cash-(bayar+dis);
write('uang kembalian:',cash-bayar-dis:2:0);readln;
readln;
end;


end.