Viết chương trình đổi tờ giấy bạc mệnh giá nnghìn đồng ra các loại 500, 200, 100 nghìn đồng sao cho số tờ giấy bạc là ít nhất (với n nhập từ bàn phím). Cô mk gợi ý thông báo Var loai500,loai200,loai100,n,m : integer Mn giúp mk với mai kiểm tra ời !!!!!!!!!

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.