Bài 1: hằng tháng các hộ dân tronng thành phố đều nhận đc hóa đơn tiền điện tiêu dung của mỗi hộ gđ đc tính như sau: -100 số dân đầu tiên mỗi sô ph trả 1000 đồng -từ 101 đến 150 số mỗi số phải trả 2000đ - từ 151 đến 200 số mỗi số phải trả 2500đ -từ số 200 trở lên mỗi số phải trả 3000đ -số tiền ph trả là số tiền tính đc + them 10% thuế VAT Bt rằng lượng điện tiêu thụ trong 1 tháng là a (kw), a đc nhập từ bàn phím Hãy tính số tiền điện ph trả cho 1 tháng của mỗi gđ. Lm bằng chương trình lập trình pascal

program tien_dien;
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 * 1000) ;
t2 := (a - 100)*2000 + 100*1000  ;
t3 := (a - 150)* 2500 + 100* 1000 + 50* 2000   ;
t4 := (a - 200)* 3000 + 100*1000 + 50* 2000 + 50* 2500   ;
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 > 151) and (a <= 200)) then t := t3 + t3*0.1  ;
if (a > 200) then t := t4 + t4*0.1;
writeln('so tien dien phai tra cho 1 thang cua gia dinh la :', t:8:0);
readln
end.

**** vd : 250 kw : = 100 + 50 + 50 + 50

100 kw đầu : 100 * 1000 = 100000

50 kw tiếp theo : 50 * 2000 = 100000

50 kw tiếp theo : 50 * 2500 = 125000

50 kw còn lại : 50 * 3000 = 150000

tổng = 475000 + 10%475000 = 522500