uses crt;
var n,i:longint;
procedure people;
var name,address:string;
oldSalary,newSalary,get,se:qword;
begin
write('Ho ten khach hang: ');readln(name);
write('Dia chi: ');readln(address);
write('So dien cu: ');readln(oldSalary);
write('So dien moi: ');readln(newSalary);
get:=newSalary-oldSalary;
writeln('So dien tieu thu: ',get);
if get<50 then se:=get*1200
else if(50<get)and(get<=100)then se:=get*1600
else se:=get*1200;
writeln('So tien dien: ',se);
writeln('So tien phai tra: ',(se+(se div 100*10)));
end;
begin
clrscr;
readln(n);
for i:=1 to n do people;
readln;
end.
