type barang=record
kode,nama:string;
harga:real;
satuan:string;
stok:byte;
end;
larikbrng=array[1..15] of barang;
var bar:larikbrng;
i,n:byte;
ulang:char;
x:byte;
begin
ulang:='y';
while ulang='y' do
begin
inc(n);
writeln('mengisi data barang ke- ',n);
write('masukan kode barang==>');readln(bar[n].kode);
write('masukan nama barang==>');readln(bar[n].nama);
write('masukan harga barang==>');readln(bar[n].harga);
write('masukan satuan==>');readln(bar[n].satuan);
writeln;
write('apakah ingin memasukan data barang yang lain<y/t>?');
readln(ulang);
end;
{transaksi}
writeln('mengisi jumlah');
for i:=1 to n do
begin
write('membeli ',bar[i].nama,' sebanyak? ');
readln(x);bar[i].stok:=x;
end;
{cetak}
writeln('Daftar Stok Toko Anugerah');
writeln('----------------------------------------------------------------');
writeln('no. kode nama barang harga satuan jumlah');
writeln('----------------------------------------------------------------');
for i:=1 to n do with bar[i] do
writeln(i:3,kode:6,nama:10,harga:15:2,satuan:10,stok:8);
writeln('-----------------------------------------------------------------')
end.
