gavno kakoe-to

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