program menghitung pengambilan barang

program array_dalam_record;
uses wincrt;
Type
    barang          = record
    namabrg         :array[1..3] of string[20];
    jumlah          :array[1..3] of byte;
    harga,total     :array[1..3] of real;
        subtot,tbrng    :array[1..3] of real;
        total_semua     :array[1..3] of real;
end;
var
    brg        :barang  ;
    i,j,k      :integer ;
begin
 with brg do
 begin
        for i:=1 to 3 do
        begin
                write('Nama Barang ke-',i,' : ');readln(namabrg[i]);
            write('Harga barang ke-',i,' : ');readln(harga[i]);
            for j:=1 to 3 do
            begin
                     write('Jumlah brng di ambil ',j,' : ');readln(jumlah[j]);
                 subtot[i] := subtot[i] + jumlah[j];                     
                     total[i]:= subtot [i]* harga[i];

           end;              
                      
  
                writeln('Jumlah Barang = ',subtot[i]:0:0);
                writeln('Harga Bayar = ',total[i]:0:0);
                for k := 1 to 3 do
                    total_semua[k]:=total_semua[k]+total[i];
                    tbrng[k]:=tbrng[k]+subtot[i];

                end;



              


                    writeln('Total Semua Barang = ',tbrng[k]:0:0);
                    writeln('Total Hutang Yang Harus di Bayar = Rp. ',total_semua[k]:0:0);
                    end;
 end.