Вычисление факториала

function FuckToRial(n: Integer): Integer;
var i: Integer;
begin
  Result := 1;
  if n > 1 then
    for i := 1 to n do
      Result := Result * i
  else
    Result := 1;
end;
 
function FuckToRial1(n: Integer): Integer;
begin
  if n > 1 then
    FuckTorial1 := n*FuckTorial1(n-1)
  else
    Result := 1;
end;

function FuckToRial(n: Integer): Integer;
var
  i: Integer;
begin
  Result := 1; // надо ещё и инициализировать ;)
  If n > 1 then
    for i := 2 to n do
      Result := Result * i;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
type
  BinKoof = record
    x,y: Extended;
  end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function NcR(const n,m: Extended): Extended;
var a: Extended;
function inner(k: Extended): Extended;
var x,y: Extended;
begin
  x := 1;
  y := 1;
  while x <= k do
    begin
      y := y*x;
      x := x+1;
    end;
     Result := y;
end;
begin
  a := inner(m)/(inner(m-n)*inner(n));
  Result := a;
end;
 
function ParseBinKoof(S: String): BinKoof;
var S1, S2: String;
begin
  S1 := Copy(S, 1 , Pos(',', S));
  S2 := Copy(S, Pos(',', S)+1, Length(S));
  Result.x := StrToFloat(S1);
  Result.y := StrToFloat(S2);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := FloatToStr(NcR(ParseBinKoof(Edit1.Text).x, ParseBinKoof(Edit1.Text).y));
end;
 
end.