ln

program var4;
const x = 0.30;
var n: integer; u, y, t, eps: real;
begin
  writeln('Введите требуемую точность: ');
  readln(eps);
  n:= 1;
  u:= x;
  y:= x;
  repeat
    u:= -u * x * n / (n + 1);
    y:= y + u;
    n:= n + 1;
  until abs(u) < eps;
  t:= ln(1 + x);
  writeln('y = ', y:12:7, '       t = ', t:12:7);
end.