help me ! nhập hộ tên 1 chủ hộ, chỉ số công tơ cũ ,chỉ số công tơ mới. Hãy tính tiền điện cho hộ đó theo cong thức sau: Thành tiền= số lương tiêu thụ*đơn giá trong đó: số lương điện tiêu thụ = csctm-csctc đơn giá : 100kw đầu giá 560 đ/1kw 50kw tiếp theo giá 900d/kw 50kw tiếp theo giá 1350đ/kw số kw còn lại giá 1750đ/kw

uses crt;

var csctm,csctc,tt,ld,dg,i: integer;

ht: string;

begin

clrscr;

write ('nhap ho ten: ');   readln (ht);

write ('nhap chi so cong to cu: ');   readln (csctc);

write ('nhap chi so cong to moi: ');   readln (csctm);

ld:=csctm-csctc;

for i:=1 to ld do

if i<=100 then dg:=dg+560

else if i<150 then dg:=dg+900

else if i<200 then dg:=dg+1350

else dg:=dg+1750;

tt:=ld*dg;

writeln ('thanh tien la: ',tt);

readln;

end.

Program dien;

uses crt;

var   a:longint;

        tiendien:real;

begin

clrscr;

readln(a);

if a<=100 then tiendien:=a*560;

if a<=150 then tiendien:=100*560+900*(a-100);

if a<=200 then tiendien:=100*560+900*50+1350*(a-150);

if a>=200 then tiendien:=100*560+900*50+1350*50+1750*(a-200);

Writeln('so tien dien trong thang la:',tiendien:0:0,'VND');

readln;

END.

ko bt đk