指教一下各位高手关于Pascal的问题

来源：百度知道 编辑：UC知道 时间：2024/06/01 14:28:24
请高手帮我编个程序，多谢！

电脑硬件库存管理（编号，名称，单价，数量，供货商，进货日期，总价）

program kcgl;
var
bh,dj,sl,zj:array[1..10000]of real;
mc,ghs,rq:array[1..10000]of string;
x,n:longint;
begin
read(x);
for n:=1 to x do
begin
read(bh[n],mc[n],dj[n],ghs[n],sl[n],rq[n]);
zj[n]:=dj[n]*sl[n];
writeln(bh[n]:0:2,' ',mc[n],dj[n]:0:2,' ',sl[n]:0:2,' ',ghs[n],rq[n],zj[n]:0:2);
end;
end.
{试一试}