Program penjualan barang

program data_penjualan_barang;
uses crt;
const Nmaks=100;

type barang=record
kode:string[10];
nama:string[35];
quantity:integer;
harsat:integer;
subtotal:integer;
end;

type nilai=array[1..Nmaks] of barang;

var
M:nilai;
N:integer; {banyaknya barang}
i:integer; {indeks larik}
total:real;

begin
clrscr;
{inisialisasi larik}
for i:=1 to Nmaks do
begin
M[i].kode:=' ';
M[i].nama:=' ';
M[i].quantity:=0;
M[i].harsat:=0;
M[i].subtotal:=0;
end;

{isi larik melalui input device}
write('Banyaknya Barang : '); readln(N);
for i:=1 to N do
begin
writeln('Barang Ke-',i,' dari ',N);
write('Kode Barang : '); readln(M[i].kode);
write('Nama Barang : '); readln(M[i].nama);
write('Quantity : '); readln(M[i].quantity);
write('Harga Satuan : '); readln(M[i].harsat);
M[i].subtotal:=M[i].quantity*M[i].harsat;
total:=total+M[i].subtotal;
writeln('Subtotal : ',M[i].subtotal);
end;

{cetak isi larik}
clrscr;
writeln('DATA PENJUALAN BARANG punya Dewi Widia Anggraeni semester 1-B');
writeln('========================================================================');
writeln('No Kode Barang Nama Barang Quantity Harga Satuan Subtotal');
writeln('========================================================================');
for i:=1 to N do
begin
writeln(i,' ',M[i].kode,' ',M[i].nama,' ',M[i].quantity,' ',M[i].harsat,' ',M[i].subtotal);
end;
writeln('========================================================================');
writeln('Total Bayar : ',total:3:2);
readln;
end.



Dan Hasilnya Menjadi :