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;
    for I := 1 to 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, '|');

    end;
    close(t);
end.