60 ĐIỂM CỰC DỄ Đánh máy lại nội dung chương trình trong ảnh YÊU CẦU: Chính xác là được

writeln('Nhap chi so cu');readln(cu);

writeln('Nhap chi so moi:');readln(moi);

tieuthu:=moi-cu;

if tieuthu=0 then writeln('Khong tinh 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:1)

else if (tieuthu>=50) and (tieuthu<100) then writeln('Tien dien thang nay la: ',b:1:1)

else if (tieuthu>=100) and (tieuthu<200) then writeln('Tien dien thang nay la: ',c:1:1)

else if tieuthu>200 then writeln('Tien dien thang nay la: ',d:1:1);

readln;

end.