Описание програмы

unit N355;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
  n,i:integer;
  s:real;
implementation
{$R *.dfm}
  Function factorial(x:integer):real;
  Begin
   if x < 1 then
    result := 0
   else if x = 1 then
    result := 1
   else
    result := x * factorial(x-1);
end;
procedure TForm2.Button1Click(Sender: TObject);
var i:integer;
begin
  n:=StrToInt(Edit1.Text);
  s:= 0;
  for i:=1 to n do
  s:=s+(1/factorial(sqr(i)));
  Edit2.Text:=FloatToStr(s);
end;
end.

unit N355;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
  n,i:integer;
  s:real;
implementation
{$R *.dfm}
  Function factorial(x:integer):real; //WTF? Фабрика с выходом 
  Begin
   if x < 1 then //если что-то там меньше 1 тогда...
    result := 0 //тогда выдаем ноль
   else if x = 1 then
    result := 1 //равно 1 тогда 1, и зачем?
   else
    result := x * factorial(x-1); //если больше 1, а можно было и так, то вывели что-то умножененое на результать повторения функция с входом на 1 меньше(жаль не цыклом).
end;
procedure TForm2.Button1Click(Sender: TObject);
var i:integer; //как и всегда счетчик цыкла
begin
  n:=StrToInt(Edit1.Text); //n похоже типа integer так как преобразуем текст из edit в строку
  s:= 0; //чему-то присвоили значение 0
  for i:=1 to n do //началось.... 
  s:=s+(1/factorial(sqr(i))); //s присвоить значение s + (1 разделеное на результат функции i в квадрате)
  Edit2.Text:=FloatToStr(s); //выводим в edit
end;
end.

Function factorial(x:integer):real;