21.

uses crt;
procedure make;
var i,dem:longint; s:string;
   begin
      write('s=');readln(s);
      writeln('Do dai: ',length(s));
      dem:=0;
      for i:=1 to length(s) do
         if (s[i]>='0')and(s[i]<='9') then inc(dem);
      writeln('So chu so: ',dem);
   end;
begin
clrscr;
   make;
readln
end.

22.

uses crt;
var d:text; i,n,j,t:longint; a:array[1..100000]of longint;
begin
clrscr;
   assign(d,'input.pas');reset(D);
      readln(d,n);
      for i:=1 to n do read(d,a[i]);
   close(d);
   assign(d,'output.pas');rewrite(D);
      for i:=1 to n do
         for j:=1 to i do
             if a[i]<a[j] then
                 begin
                    t:=a[i];
                    a[i]:=a[j];
                    a[j]:=t;
                 end;
      for i:=1 to n do write(d,a[i],' ');
   close(d);
end.