关于邮费的题目，有家书店开通了邮购业务，邮费：书费100元以下(含100元)交20元，书费100-1000元（含1000元）交书费的15%，书费1000-2000元交书费的10%，书费2000元以上免收。
读入文件：有N+1行，第一行有一个英语单词，是客户的名，20个字符以内，后面有一个空格，然后是一个数字N，下面有N行，每行前面是书名，后面是空格，再后面是单价，空格，数量。
输出文件：先是客户的名，然后空格，再然后是应交的邮费。
请列出pascal源文件。
參考答案:PROGRAM aa;
VAR
ch:array[1..23] of char;
c:char;
s:string;
fei:real;
a,b,n,tot,i,j,k:integer;
BEGIN
read(c);
while c<>\' \' do
begin
s:=s+c;
read(c);
end;
read(n);
for i:=1 to n do
begin
c:=\'*\';
while c<>\' \' do read(c);
read(a,b);
tot:=tot+a*b;
end;
if tot<=100 then fei:=20;
if (tot>100) and(tot<=1000) then fei:=tot*0.15;
if (tot>1000) and (tot<=2000)then fei:=tot*0.1;
writeln(fei);
END.
我这里fei是实形，限制了3位小数，你题目不明确，只能自己改了