menu

program MENU;

uses
    wincrt;
var
   KK,kd_brg,hrg,jmlh,jmlh_brg,a:integer;
   jmlh_pmbli:longint;
   nama,almt,nm_ksr,nm_brg:string [20];
   klm,coba:char;
   jmlh_byr:real;

begin
     coba:='Y';
repeat
      writeln('PROGRAM MENU');
      writeln('------------');
      write('Masukkan Pilihan Menu [1/2] : ');readln(a);
      if (a=1) then
begin
     gotoxy(5,6);writeln('ENTRY DATA KARYAWAN');
     writeln;
     write('Kode Karyawan : ');readln(KK);
     write('Nama          : ');readln(nama);
     write('Kelamin       : ');readln(klm);
     write('Alamat        : ');readln(almt);
end else
     begin
     writeln('KASIR');
     write('Nama Kasir : ');readln(nm_ksr);
     write('Kode Barang : ');readln(kd_brg);
     write('Nama Barang : ');readln(nm_brg);
     write('Harga Barang : ');readln(hrg);
     write('Jumlah Barang : ');readln(jmlh);
     jmlh_pmbli:=hrg*jmlh;
     writeln('Jumlah bayaran : ',jmlh_pmbli);
     if jmlh_pmbli >= 100.000 then
        jmlh_byr:=0.2*jmlh_pmbli;
        writeln('Jumlah Bayar diskon: ',jmlh_byr:5:2);
     end;
     begin
          jmlh_byr := jmlh_pmbli;
     end;
         write('Masih Ada Data Lagi?[Y/T] : ');readln(coba);
          writeln;
until (coba='T') or (coba='t');   
  

 end.