Var
 a,i:Integer;
 R:Real;
Begin
 R:=1;
 Write('a= ');
 Readln(a);
 for i:=0 to a-1 do R:=R/(a-i);
 Writeln('Result= ',R);
 i:=0;
 R:=1;
 While i<a do
  begin
   Inc(i);
   R:=R/i;
  end;
 Writeln('Result= ',R);
 i:=0;
 R:=1;
 Repeat
  Inc(i);
  R:=R/i;
 Until i>a-1;
 Writeln('Result= ',R);
 Readln
End.

Var
 n,n1,m:LongInt;
 num:byte;
Begin
 Write('n= ');
 Readln(n);
 n1:=n;
 num:=0;
 Repeat
  m:=n mod 10;
  if (m mod 2)=1 then Inc(num);
  n:=n div 10;
 Until n=0;
 Writeln('Result: ',num,' figures');
 n:=n1;
 num:=0;
 While n>0 do
  begin
   m:=n mod 10;
   if (m mod 2)=1 then Inc(num);
   n:=n div 10;
  end;
 Writeln('Result: ',num,' figures');
 Readln
End.

Var
 fu:Array[1..11,1..3] of Byte;
 i,j,num:Byte;
Begin
 num:=0;
 for i:=1 to 11 do
  begin
   Writeln('Results of footballer N',i,':');
   for j:=1 to 3 do
    begin
     Write('Number of goals in ',j,' match: ');
     Readln(fu[i,j]);
    end;
   Writeln;
  end;
 Writeln;
 for i:=1 to 11 do
  if (fu[i,1]>0) and (fu[i,2]>0) and (fu[i,3]>0) then Inc(num);
 Writeln('Result: ',num,' footballers');
 Readln
End.