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}