Nhập vào số tiền đồng, đổi ra xem được bao nhiêu tờ 10 đồng, 5 đồng, 2 đồng, 1 đồng sao cho tổng số tờ là ít nhất

Program Đoi_Tien;

var

loai5000,loai2000,loai1000,m,n: integer;

write(‘nhap so tien can doi :’); readln(n);

M:=n;

loai5000:= n div 5000; n:=n-loai5000*5000;

if n<>0 then

begin

loai2000 :=n div 2000; n:=n-loai2000*2000;

if n<>0 then

begin

loai1000:=n div 1000 ; n:=n-loai1000*1000;

end;

writeln(M , ‘doi duoc thanh :’ ,loai5000,’ to 5000,’ ,loai2000,’ to 2000 ,’ ,loai1000,’ to 1000 ,’);

readln;

end.