SAO CT NÀY KHÔNG CHẠY ĐƯỢC VẬY MỌI NGƯỜI? program tinhtiendien; uses crt; var cu,moi,a,b,c,d,tieuthu:longint; begin clrscr; writeln(‘Nhap chi so cu’);

SAO CT NÀY KHÔNG CHẠY ĐƯỢC VẬY MỌI NGƯỜI?
program tinhtiendien;
uses crt;
var cu,moi,a,b,c,d,tieuthu:longint;
begin
clrscr;
writeln(‘Nhap chi so cu’);readln(cu);
writeln(‘Nhap chi so moi’);readln(moi);
tieuthu:=moi-cu;
if tieuthu=0 then writeln(‘Khong phai tra tien’);
a:=tieuthu*10000;
b:=49*10000+(tieuthu-49)*12000;
c:=49*10000+50*12000+(tieuthu-99)*15000;
d:=49*10000+50*12000+100*15000+(tieuthu-199)*16000;
if (tieuthu>0) and (tieuthu<50) then writeln('Tien dien thang nay la: ',a:1:0); if (tieuthu>=50) and (tieuthu<100) then writeln('Tien dien thang nay la: ',b:1:0); if (tieuthu>=100) and (tieuthu<200) then writeln('Tien dien thang nay la: ',c:1:0); if (tieuthu>=200) then writeln(‘Tien dien thang nay la: ‘,d 1 : 1);
readln;
end.