Program Typlex;

Uses crt;

Var dem,n: integer;

Begin

     Writeln('Nhap so kg: '); Readln(n);

     While (n>=20) do

     Begin

          n:=n-20;

          dem:=dem+1;

     End; 

     Writeln('Bao 20kg: ',dem); dem:=0 

     While (n>=10) do

     Begin

          n:=n-10;

          dem:=dem+1;

     End;  

     Writeln('Bao 10kg: ',dem); dem:=0

     While (n>=5) do

     Begin

          n:=n-5;

          dem:=dem+1;

     End;

     Writeln('Bao 5kg: ',dem); dem:=0

     While (n>=2) do

     Begin

          n:=n-2;

          dem:=dem+1;

     End; 

     Writeln('Bao 2kg: ',dem); dem:=0

     While (n>=1) do

     Begin

          n:=n-1;

          dem:=dem+1;

     End;

     Writeln('Bao 1kg: ',dem); dem:=0

     Readln

End.

#Xin CTLHN, chúc bạn học tốt