[lmikle]

Ну дык строй. В чем проблемма?
функция выражается так:

Код:

function Fact(N : Integer) : Integer;
begin
  Result := 1;
  If N > 1 Then
    For I := 2 To N Do
      Result := Result * I;
end;