program Tien_dien; {Tên chương trình}
var cs1, cs2, sd, std: int; {Đặt chỉ số công tơ là biến thuộc dữ liệu số thức, sd là số điện đã sử dụng, std là số tiền điện}
begin {bắt đầu chương trình}
clrscr; (Xóa nội dung ko cần thiết trên màn hình}
{Nhập liệu}
Writeln('Nhập chỉ số công tơ tháng trước: '); readln(cs1);
Writeln('Nhập chỉ số công tơ tháng sau: '); readln(cs2);
sd := cs2-cs1;
{tính toán số tiền điện}
if (sd <= 60) then std := sd*5000
else if (61 <= sd and sd <= 160) then std := sd*5000+(sd-60)*8100
else
std := sd*5000+(sd-60)*8100+(sd-160)*10000;
Writeln('Số tiền điện là: ',std); {Xuất số tiền điện}
Readln; {Nhấn Enter để thoát chương trình}
end. {Kết thúc chương trình}