program tienchitieu;
uses crt;
var ttct,th,tm,tct,kd,td:longint;
BEGIN
clrscr;
Write('Nhap tien chi tieu: ');readln(tct);
Write('Nhap tien hoc: ');readln(th);
Write('Nhap tien mang: ');readln(tm);
Write('Nhap so kW dien tieu thu trong thang: ');readln(kd);
td:=kd*15000;
ttct:=th+tm+tct+td;
Writeln('Tong so tien da chi tieu trong thang la: ',ttct,'vnd');
readln
END.

Cho mình xin hay nhất nhé, cảm ơn nhiều!

program tien;

uses crt;

var d,h,m,ct,t:longint;

begin

clrscr;

write('Nhap luong dien tieu thu: ');

readln(d);

write('Nhap tien hoc: ');

readln(h);

write('Nhap tien chi tieu: ');

readln(ct);

write('Nhap tien mang: ');

readln(m);

d:=d*15000;

t:=d+h+ct+m;

write('Tien chi tieu trong 1 thang qua la: ',t);

readln

end.