program penjualan barang

program latihan;
uses wincrt;
var
jum,harga,tothar:array[1..10] of longint;
kode:array[1..10] of char;
nama:array[1..10] of string[20];
i,n,totjum:integer;
pajak,totjumhar,totbayar:real;
uang,kembalian:real;
begin
     write('input banyak data: ');readln(n);
     for i:=1 to n do
          begin
          write('input kode barang      : ');readln(kode[i]);
          write('input jumlah barang    : ');readln(jum[i]);
          end;
     for i:=1 to n do
          begin
          if (kode[i]='m') or (kode[i]='M') then
             begin
             nama[i]:='monitor';
             harga[i]:=600000;
             end;
          begin
          if (kode[i]='f') or (kode[i]='F') then
             begin
             nama[i]:='hardisk';
             harga[i]:=300000;
             end;
          begin
          if (kode[i]='p') or (kode[i]='P') then
             begin
             nama[i]:='printer';
             harga[i]:=500000;
             end;
             end;

             tothar[i]  :=jum[i]*harga[i];
             totjum     :=totjum+jum[i];
             totjumhar  :=totjumhar+tothar[i];
             pajak      :=0.10*totjumhar;
             totbayar   :=totjumhar+pajak;
            
         
             end;
                      
          clrscr;
          writeln;
          writeln('Kode Nama    Jumlah  Harga   Total Harga ');
          writeln('---------------------------------------- ');
          for i:=1 to n do
          begin
          writeln('kode[i]:1,nama[i]:13,jum[i]:4,harga[i]:10,totharga[i]:12');
          end;
          writeln('---------------------------------------- ');
          writeln('Total jumlah produk = ',totjum);
          writeln('Total jumlah harga  =Rp ',totjumhar:0:2);
          writeln('Pajak 10%           =Rp ',pajak:0:2);
          writeln('Total bayar         =Rp ',totbayar:0:2);
          writeln('---------------------------------------- ');
          write ('input jumlah uang =Rp ');readln(uang);
          kembalian:=uang-totbayar;
          writeln('Uang kembalian= ',kembalian:0:2);
          writeln('Terima Kasih Atas Kunjungan Anda');
          writeln('----------**********------------');
          end;

     readln;
     donewincrt;
     end.