program tiendien;
uses crt;
var cu,moi,dien:integer;
tien:longint;
begin
write('Nhap chi so cu: '); readln(cu);
writeln('Luu y: Chi so moi phai lon hon chi so cu.');
write('Nhap chi so moi: '); readln(moi);
dien:=moi-cu;
writeln('So KW tieu thu trong thang la: ',dien);
if dien<=100 then tien:=dien*500 else tien:=dien*1000;
write('Tien dien phai tra trong thang la: ',tien);
readln
end.