Чему будет равно значение n после работы подпрограммы?

procedure num(var n: byte;  m: byte);
 
var  k : byte;
 
begin
 
         m:=0;
 
         while n<>0 do begin
 
                                  k:=n mod 10;
 
                                  n:=n div 10;
 
                                  m:=m*10+k;
 
                                 end;
 
 end;

procedure number(a: byte; var m: byte);
 
var  k : byte;
 
begin
 
         m:=0;
 
         while a<>0 do begin
 
                                  k:=a mod 10;
 
                                  a:=a div 10;
 
                                  if k mod 3=0 then m:=m+k;
 
                                 end;
 
end;

function number(a: byte): byte;
 
var m, k : byte;
 
begin
 
         m:=0;
 
         while a<>0 do begin
 
                                  k:=a mod 10;
 
                                  a:=a div 10;
 
                                  if k mod 2=0 then m:=m+k;
 
                                 end;
 
        number:=m;
 
end;

function fun(k:byte):real;
 
var i, m, p: integer;
 
begin
 
  p:=0;
 
  for i:=1 to k do begin
 
                           readln(m);
 
                           if m>0 then  p:=p+1;
 
                          end;
 
 fun:=p
 
end;

function f(n: integer):integer;
 
var factor, i : integer;
 
begin
 
factor: =1;
 
for i:=2 to n do
 
                 factor:=factor*i;
 
f:=factor;
 
end;