[Shiza]

блок-схема.jpg
собственно по этой блок-схеме необходимо решить задачу.

у меня получилось так?

Код:

 var
  Form1: TForm1;

i,n:integer;
 z : extended;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text=''then showMessage ('Error') else
begin
z:=0;
edit1.Text:=inttostr(n);
 for i:=1 to n do
z:=z+((-1)*ln(i))*(((x*i)*ln(i))/i);
  begin
 if  (z>n) then edit2.Text:=inttostr(z)
   else  edit2.Text:=strtoint(n)
   end;
  end;
 end;

Админ: Пользуемся тегами для оформления кода!

неработает