var
    I, M: Integer;
    X, H, A, B, Fx: Real;
    t: Text;

begin
    assign(t, 'out.txt');
    rewrite(t);
    M := 15;
    A := Pi / 4;
    B := Pi / 2;
    writeln('    Xi', '| ', '  Fx ', '| i| ');
    writeln(t, '    Xi', '| ', '  Fx ', '| i| ');
    H := (B - A) / M;
    I := 1;
    while (I <= M) do
    begin
        X := X + H;
        Fx := 1 / tan(sqrt(X));
        writeln(X:6:2, '|', Fx:6:2, '|', I:2, '|');
        writeln(t, X:6:2, '|', Fx:6:2, '|', I:2, '|');
        inc(I);
    end;
    close(t);
end.