uses crt;
var a,b,c:longint;
begin
clrscr;
    for a:=0 to 1700 div 500 do
      for b:=0 to 1700 div 200 do
         for c:=0 to 1700 div 100 do
            if (500*a+200*b+100*c=1700) then
               writeln(a,' to 500d; ',b,' to 200d; ',c,' to 100d');
readln
end.

Program BTT;
Uses crt;
Var loai500,loai200,loai100,n,m: integer;
Begin
        Clrscr;
        Write('Nhap so tien can doi: '); Readln(n);
               If n div 500 <> 0 then
                  Begin
                      loai500:=n div 500;
                      n:=n - loai500*500;
              End;

              If n div 200 <> 0 then
              Begin
                      loai200:= n div 200;
                      n:=n - loai200*200;
              End;

              If n div 100 <> 0 then
              Begin
                       loai100:=n div 100;
                       n:=n - loai100*100;
               End;

       m:=loai500+loai200+loai100;
       Writeln('Doi duoc it nhat ',m,' to tien');
       If loai500 <> 0 then Writeln(loai500,' to 500');
       If loai200 <> 0 then Writeln(loai200,' to 200');
       If loai100 <> 0 then Writeln(loai100,' to 100');
       If (n<100) and (n<>0) then Write('Con ',n,' nghin khong doi duoc');
       Readln

 End.