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.

uses crt;
var i,n:word;
procedure kh();
var ten,dc:string;
    sdc,sdm,sdtt,tt:longword;
begin
    write('Ten khach hang: ');readln(ten);
    write('Dia chi: ');readln(dc);
    write('So dien cu: ');readln(sdc);
    write('So dien moi: ');readln(sdm);
    sdtt:=sdm-sdc;
    if sdtt<=50 then tt:=sdtt*1200
    else if(50<sdtt) and (sdtt<=100) then tt:=sdtt*1600
      else tt:=sdtt*1200;
    writeln('So tien phai tra: ',(tt+tt/10):0:3);
end;
begin
    clrscr;
    write('So luong khach hang: ');readln(n);
    for i:=1 to n do
      kh();
readln;
end.