Viết chương trình tiền điện như sau: – Nhập chỉ số KW cũ và mới – Tính số KW tiêu thụ mỗi tháng – Định mức sử dụng điện mỗi thán

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.