program bai_giai;
uses crt;
var a:array[1..9]of longint;m,i,kt,j:longint;
begin
 clrscr;
  a[1]:=1;
  a[2]:=2;
  a[3]:=5;
  a[4]:=10;
  a[5]:=20;
  a[6]:=50;
  a[7]:=100;
  a[8]:=200;
  a[9]:=500;
  write('nhap m:=');readln(m);
  for i:=1 to m do
        begin
         if(m mod i=0)then
                begin
                 kt:=0;
                 for j:=1 to 9 do if(a[j]=i)then kt:=1;
                 if (kt=1)then write(i,' ');
                end;
        end;
 readln;
end.

mình chỉ biết có cách này thôi nha bạn

uses crt;

var M,a,b,c,d,e,f,g:integer;

begin

write('nhap so tien:');readln(M);

a:=M div 100;

b:=M div 50;

c:=M div 20;

d:=M div 10;

e:=M div 5;

f:=M div 2;

g:=M div 1;

writeln('dc ',a,' to 100');

writeln('dc ',b,' to 50');

writeln('dc ',c,' to 20');

writeln('dc ',d,' to 10');

writeln('dc ',e,' to 5');

writeln('dc ',f,' to 2');

writeln('dc ',g,' to 1');

readln;

end.