uses crt;
var csctm,csctc,tt,ld,dg,i: integer;
ht: string;
begin
clrscr;
write ('nhap ho ten: '); readln (ht);
write ('nhap chi so cong to cu: '); readln (csctc);
write ('nhap chi so cong to moi: '); readln (csctm);
ld:=csctm-csctc;
for i:=1 to ld do
if i<=100 then dg:=dg+560
else if i<150 then dg:=dg+900
else if i<200 then dg:=dg+1350
else dg:=dg+1750;
tt:=ld*dg;
writeln ('thanh tien la: ',tt);
readln;
end.