kasir n data karyawan

program quiz;
uses
 winCrt;
var
 p,ulang,pilih,jk:char;
 kd_brg,nm_ksr,nm_brg,kd_krywn,nm,alamat:string;
 harga,jml_byr,hrg_beli,diskon:real;
 akar:real;
 jml,kuadrat,bil:byte;
begin
 ulang:= 'Y';
 while(ulang='Y') or (ulang='y') do
 begin
  writeln('PROGRAM PILIHAN');
  writeln('----------------');
  writeln('[1]ENTRY DATA KARYAWAN');
  writeln('[2]PROGRAM KASIR');
  writeln;
  write('Masukkan Pilihan Anda[1/2] : ');readln(p);
  case p of
  '1':begin
      clrscr;
       writeln('PROGRAM ENTRY DATA KARYAWAN');
       writeln('---------------------------');
       writeln('Masukkan Data Karyawan:');
       write('Kode Karyawan : ');readln(kd_krywn);
       write('Nama          : ');readln(nm);
       write('Kelamin[L/P]  : ');readln(jk);
       write('Alamat        : ');readln(alamat);
       clrscr;
       writeln('DATA KARYAWAN');
       writeln('-------------');
       writeln('Kode Karyawan   : ',kd_krywn);
       writeln('Nama            : ',nm);
       writeln('Kelamin         : ',jk);
       writeln('Alamat          : ',alamat);
       writeln('----------------------------');
      end;
  '2':begin
       clrscr;
       writeln('PROGRAM PERHITUNGAN KASIR');
       writeln('*************************');
       write('Nama Kasir   : ');readln(nm_ksr);
       write('Kode Barang  : ');readln(kd_brg);
       write('Nama Barang  : ');readln(nm_brg);
       write('Harga Satuan : ');readln(harga);
       write('Jumlah       : ');readln(jml);
        hrg_beli:= jml*harga;
        if hrg_beli >= 100000 then
        begin
         diskon:= 0.1*hrg_beli;
         jml_byr:= hrg_beli-diskon;
        end else
        begin
         diskon:= 0;
         jml_byr:=hrg_beli;
        end;
       clrscr;
       writeln('Data Pembelian Anda');
       writeln('-------------------');
       writeln('Kode Barang       : ',kd_brg);
       writeln('Nama Barang       : ',nm_brg);
       writeln('Harga Barang      : ',harga:10:0);
       writeln('Jumlah Barang     : ',jml);
       writeln('Jumlah Pembelian  : ',hrg_beli:10:0);
       writeln('Diskon            : ',diskon:10:0);
       writeln('Jumlah Bayar      : ',jml_byr:10:0);
       writeln('--------------------------------');
       writeln('Terima Kasih Atas Kunjungan Anda');
       writeln('********************************');
    end else
       clrscr;
       writeln('Anda Salah Memasukkan Pilihan');
  end;
       write('Kembali Ke Menu?[Y/T] : ');readln(ulang);
       clrscr;
 end;
  writeln('TERIMA KASIH');
end.