[AND_REY]

Переменная P дробная надо использовать FloatToStr();

Код:

var V,P0,n:integer;
 V0,P:real;
 begin
 V:=StrtoInt(Edit1.Text);
 P0:=StrtoInt(Edit2.Text);
 V0:=StrtoInt(Edit3.Text);
 n:=10 ;
 while(n<50) do
 begin
 n:=n+10;
 P:=P0*(exp(n*ln(V/(V+V0))));
 Memo1.Lines.Add(IntToStr(n)+' : '+FloatToStr(P));
 end;
 repeat
 n:=n+50;
 P:=P0*(exp(n*ln(V/(V+V0))));
 Memo1.Lines.Add(IntToStr(n)+' : '+FloatToStr(P));
 Until(n=250);
 end;