{ NAMA : RIZKI FAUZIAN R.}
{ NIM : 1903040168       }
{ KELAS : C}



program untitled;
uses crt;
type
barang = record
kode_barang : string [10];
nama_barang : string [30];
harga_jual :integer;
quantity :shortint;
sub_total :integer;
kembalian : integer;
jumlahuang :integer;
end;

var
sub_total2 : integer;
sub_total : integer;
x         : integer;
n         : integer;
data : array [1..100] of barang;

BEGIN
writeln ('##########################');
writeln ('                         #');
writeln ('Tugas array of record    #');
writeln ('                         #');
writeln ('Nim : 1903040168         #');
writeln ('                         #');
writeln ('Nama : Rizki Fauzian R.  #');
writeln ('                         #');
writeln ('##########################');
writeln ('                         ');
writeln ('Masukan jumlah data : ');
readln (x);
writeln ('');
writeln ('###################################################');
writeln ('');
for n := 1 to x do
begin
writeln ('Masukan kode barang : ');readln (data[n].kode_barang);
writeln ('Masukan nama barang : ');readln (data[n].nama_barang);
writeln ('Masukan harga jual : ');readln (data[n].harga_jual);
writeln ('Masukan quantity : ');readln (data[n].quantity);
data[n].sub_total := data[n].harga_jual * data[n].quantity;
writeln ('');
writeln ('###################################################');
writeln ('');
end;


writeln ('====================================================================================================================');
writeln ('|| No ||     KODE BARANG     ||          NAMA BARANG          ||    HARGA JUAL    || QUANTITY ||     SUBTOTAL     ||');
writeln ('====================================================================================================================');


for n := 1 to x do
begin
writeln ('||',n:4,'||',data[n].kode_barang:21,'||',data[n].nama_barang:31,'||',data[n].harga_jual:18,'||',data[n].quantity:10,'||',data[n].sub_total:18,'||');
writeln ('====================================================================================================================');
 sub_total2 := sub_total2 + data[n].harga_jual * data[n].quantity
end;
writeln ('');
writeln ('###################################################');
writeln ('');
writeln('Total belanja : ',sub_total2);
writeln('============================');
write('Jumlah uang yg di bayarkan : ');readln(data[n].jumlahuang);
writeln('Jumlah bayar              : ',sub_total2);

data[n].kembalian := data[n].jumlahuang-sub_total2;

writeln('Kembalian                  : ',data[n].kembalian);
writeln('=============================');
writeln ('');
writeln ('###################################################');
writeln ('');
writeln('TERIMA KASIH SUDAH BERBELANJA');
readln;
END.