Đá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:

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

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

readln

end.

Đánh máy mỏi cả tay bạn nhớ cho mik CTLHN nhaz!!!