uses crt;
label M1,M2,M3;
var Y0,Y,Q,E,P,T,P0,A,Pold:real;
     k,i,V,ss:integer;
begin
clrscr;
writeln('Y0':3,'P':10);
T:=1e-14;
Pold:=0;
V:=56;
M1:
ss:=0;
Y0:=0.3+0.1*k;
Y:=Y0*V;
P0:=0;

M2:
ss:=ss+1;
A:=Y/(1-P0);
E:=1;
for i:=1 to V do
E:=A*E/(i+A*E);
P:=E;
Q:=abs((P-Pold)/P);
Pold:=P;
if Q<T then
      begin
         k:=k+1;
         writeln(ss,y0:4:1,P:18);
         if k<7 then
         goto M1
         else goto M3;
      end
else
      begin
        P0:=P;
        goto M2;
      end;
M3:
readln;
end.

uses crt;
var Y,Q,E,P,T,P1,A,V,Vmin,Vmax,V1:real;
     i:integer;
begin
clrscr;
T:=2e-3;
Y:=36;
P:=0.1;
A:=Y/(1-P);
Vmin:=0;
Vmax:=20*A;
writeln('Result');
repeat
{writeln('processing');}
V1:=(Vmin+Vmax)/2;
E:=1;
for i:=1 to round(V1) do
E:=A*E/(i+A*E);
P1:=E;
if P1<P then Vmax:=V1
else Vmin:=V1;
Q:=abs(P1-P);
until Q<T;
writeln('V= ',round(V1));
E:=1;
for i:=1 to round(V1) do
E:=A*E/(i+A*E);
writeln('Y= ',Y:1);
writeln('p= ',E);
readln;
end.