[Konrad]

Мама дорогая....

Если это чем-то поможет:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,fx:real;
begin
  x:=strtofloat(edit1.Text);
  if x>0 then fx:=x+ln(x);
  edit2.Text:=floattostr(fx);
end;

Хотя грусно это...
Раньше неочень знающие девушки искали парня в реале, который за красивые глаза, делал задачи. Сейчас же все в инете...