Có 3 loại tờ giấy bạc 500₫, 200đ, 100đ. Viết chương trình tìm tất cả các phương án đề có được số tiền 1700đ từ 3 loại giấy bạc trên ( Lập trình pascal)

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.