Định mức tiền điện hàng tháng của một hộ gia đình như sau: + 50 kWh đầu tiên có giá là 600vnđ/1kWh. + 50 kWh tiếp theo có giá là 1004vnđ/1kWh. + 50 kWh tiếp theo nữa trở đi có giá là 1214vnđ/1kWh. Mức giá này chưa bao gồm thuế giá trị gia tăng (VAT). + Ví dụ: Hộ gia đình A sử dụng 145kWh trong 1 tháng thì phải trả 148.313 nghìn đồng (trong đó, thuế 10% là 13.483 nghìn đồng, tiền chưa thuế là 134.830 nghìn đồng).
Chào mọi người! Tôi đang tìm kiếm một chút hỗ trợ để giải quyết câu hỏi này. Có ai biết câu trả lời không nhỉ?

program tinh_tien_dien;

var

      kwh, tien_chua_thue, tien_thue, tien: real;

begin

      writeln('Nhap so kWh dien tieu thu trong thang:');

      readln(kwh);

      if kwh <= 50 then

            tien_chua_thue := kwh * 600

      else if kwh <= 100 then

            tien_chua_thue := 50 * 600 + (kwh-50) * 1004

      else

            tien_chua_thue := 50 * 600 + 50 * 1004 + (kwh-100) * 1214;

      tien_thue := tien_chua_thue * 0.1;

      tien := tien_chua_thue + tien_thue;

      writeln('So tien dien phai tra trong thang la: ', tien:0:0, ' VND (trong do, thue 10% la ', tien_thue:0:0, ' VND, tien chua thue la ', tien_chua_thue:0:0, ' VND).');

end.