.


           


until eps > 1;
t := k
end;
{----------------------------------------------------------------------------------------}
Function s(k: integer; p : real) : real;
var
i : integer; z : real;
begin
z := 1;
for i := 1 to k do z := z*p;
s := z
end;
{----------------------------------------------------------------------------------------}
begin
write(' '); readln(eps);
n := 1;
repeat
x := s(n, (1 + 1/n));
n := n + 1;
x1 := s(n, (1 + 1/n))
until abs(x1 - x) < eps;
writeln(' ', x1:6:t(eps));
writeln(' ', eps:1:t(eps))
end.
5
un

, un
.
( 3 n).