uses crt;
var a, t, t1, t2, t3, t4  : real;
begin
clrscr;
write('nhap luong dien nang tieu thu trong 1 thang :');readln(a);
t1 := a * 550 ;
t2 := (a - 100)*1470 + 100*550  ;
t3 := (a - 150)* 1600 + 100* 550 + 50* 1470   ;
if (a >= 1) and (a <= 100) then t := t1 + t1*0.1 ;
if (a > 100) and (a <= 150) then t := t2 + t2*0.1 ;
if (a > 150) and (a <= 200) then t := t3 + t3*0.1  ;
writeln('so tien dien phai tra cho 1 thang cua gia dinh la :', t:8:0);
readln

* Vd : Lượng điện tiêu thụ 165

- 100 kw đầu = 100 * 550

- 50 kw sau = 50 * 1470

=> 165 - 100 - 50 = 15

=> 15 kw còn lại = 15 * 1600 

=> Tổng : 100 * 550 + 50 * 1470 + 15 * 1600  = 152500

=> Thuế 10% => 152500 + 152500.10% = 167750

uses crt;
var n,s:longint;
begin 
clrscr; 
   write('Nhap so kw: ');readln(n);
   if n<=100 then s:=s+550*100;
   if (n>100)and(n<=150) then s:=s+550*100+1470*(n-100);
   if (n>=151)and(n<=200) then s:=s+550*100+1470*50+1600*(n-150);
   writeln(s+s div 10);
readln 
end.