Нужен срочно отчет!!!

[lerochka]

пожайлуста помогите написать отчет по етой программе((( Подробно обьясняя все пункты чтобы я смогла сдать преподавателю)) Мальчики надеюсь на Вашу помощь)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Function fact(s:integer):real;
var i:integer;
begin
result:=1;
if not(s<=0) then
for i:=1 to s do result:=result*i;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
X:integer;
Y:Real;
begin
X:=StrToInt(InputBox('Введите х:','',''));
Y:=fact(X);
ShowMessage(FloatToStr(Y));
end;

end.

[MaTBeu]

А может содержание отчета скажете? А то ведь они в разных учебных заведениях разные.