uses crt;
var csm, csc, ttd, stt : longint;
const dmd = 100;
begin
clrscr;
write('nhap chi so dien cu :');readln(csc);
write('nhap chi so dien moi :');readln(csm);
stt := csm - csc;
if stt <= dmd then ttd := stt * 500
else ttd := dmd * 500 + (stt - 100) * 1000;
writeln('tien phai tra la :', ttd);
readln
end.

uses crt;            

var a,b,c,d:integer;                    

const e=100;                                                                                

begin                                            

write('nhap so KW moi:');readln(a);                                                        

write('nhap so KW cu:');readln(b);                      

c:=a-b;                  

writeln('So KW tieu thu moi thang la:',c);                         

if c<=e then d:=c*500 else d:=e*500+(c-e)*1000;                    

writeln('Tong tien dien la:',d);                                         

readln;                                         

end.