mỗi người mua là sao bạn
phải là người đó mua mới đúng chứ
uses crt;
var a:array[1..100]of longint;
i,n:integer;
t:longint;
begin
clrscr;
write('nhap so luong mon hang:'); readln(n);
for i:=1 to n do
begin
write('nhap so tien mon hang thu ',i,'='); readln(a[i]);
end;
{---------------------xuat----------------------}
for i:=1 to n do
write(a[i]:4);
{-----------------xu-ly--------------------------}
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('tong so tien khach hang phai tra la: ',t);
readln;
end.