Uses crt;
 Var a:longint; tiendien:real;
Begin
 Clrscr;
  Writeln('Luong dien tieu thu la (kWh):');  Readln (a);
 If a<=50 then                            tiendien:= (a*1678) + (a*10/100*1678);

 If (a>=51)  and  (a<=100) then tiendien:= (50*1678) + ((a-50)*1734)
+ (50*10/100*1678) + ((a-50)*10/100*1734);

 If (a>=101) and (a<=200) then tiendien:= (50*1678) + (50*1734)
+ ((a-100)*2014) + (50*10/100*1678)             + (50*10/100*1734)
+ ((a-100)*10/100*2014));


 If (a>=201) and (a<=300) then tiendien:= (50*1678) + (50*1734)
+(100*2014) + ((a-200)*2536)
+ (50*10/100*1678) + (50*10/100*1734)
+ (100*10/100*2014)  + ((a-200)*10/100*2536);

 If (a>=301) and (a<=400) then tiendien:= (50*1678) + (50*1734)
+ (100*2014) + (100*2536) + ((a-300)*2834)
+ (50*10/100*1678) + (50*10/100*1734)
+ (100*10/100*2014)  + (100*10/100*2536) 
+ ((a-300)*10/100*2834);

 If a>=401 then  tiendien:= (50*1678) + (50*1734) + (100*2014)
+ (100*2536) + (100*2834) + ((a-400)*2927)
+ (50*10/100*1678) + (50*10/100*1734)
+ (100*10/100*2014)  + (100*10/100*2536)
+ (100*10/100*2834))                +((a-400)*10/100*2927);

Writeln('So tien dien phai tra sau thue trong thang la:',tiendien:9:0, 'VND');
Readln;
End.
(Nếu giải theo cách bình thường (Đối với If..then) thì đây ạ :))) )) *Nhớ tick và chấm là câu tr/l hay nhất cho mình nhé! Có gì không hiểu, comment bên dưới. Thanks! 
P/S:  Mình bỏ nhiều công sức lắm đấy ạ :((( 

var k,n,i:LONGINT;
s:int64;
begin
read(n);
for i:=1 to n do
        begin
        if i<=50 then k:=1678;
        if i>=51 then k:=1734;
        if i>=101 then k:=2014;
        if i>=201 then k:=2536;
        if i>=301 then k:=2834;
        if i>=401 then k:=2927;
        s:=s+k;
        end;
write(s);
end.