function erg = fakultaet( n )          % Zeile 1
  z = 1;                               % Zeile 2
  for( k=2:n )                         % Zeile 3
     z = z * k;                        % Zeile 4
  end                                  % Zeile 5
  erg = z;                             % Zeile 6
end