Немного не точная блок-схема, некоторых элементов не хватает. Но если я правильно понял, то код следующий:
Код:
var
i, n, x: integer;
z: extended;
begin
i := 1;
z := 0;
n := StrToInt(Edit1.text);
x := StrToInt(Edit2.text);
repeat
z := z + ((-1) * ln(i)) * (((x * i) * ln(i)) / i);
inc(i);
until i > n;
Edit3.text := FloatToStr(z);
end;