program Project1;
{$APPTYPE CONSOLE}
SysUtils;
var kode_barang:array[1..10]of string;
nama_barang:array[1..10]of string;
jumlah :array[1..10]of integer;
harga :array[1..10]of integer;total_harga :array[1..10]of integer;
i,n :integer;
begin
write('isikan banyak data barang :');readln(n);
for i:=1 to n do
begin
write('isikan kode_barang ',i,' :');readln(kode_barang[i]);
write('isikan nama_barang
:');readln(nama_barang[i]);
write('isikan jumlah :');readln(jumlah[i]);
write('isikan harga :');readln(harga[i]);
total_harga[i]:=jumlah[i]*harga[i]
end;
writeln;
for
i:=1 to n do
begin
writeln(kode_barang[i],'',nama_barang[i],'',jumlah[i],'',harga[i],'',total_harga[i])
end;
readln;
end.