AnPol_A

Var
    A, OldRes: Real;
    I: LongInt;
Begin
    Write('Введите A: '); ReadLn(A);
    OldRes:= A; I:= 1;
    While I > 0 Do Begin
      If Cos(OldRes) <> 0 Then
        If Sin(OldRes) / Cos(OldRes) < 0 Then
          Break
        Else
          OldRes:= Sin(OldRes) / Cos(OldRes);
        Inc(I);
    End;
    WriteLn('При N = ', I, ' тангенс элемента последовательности меньше нуля');
    ReadLn;
End.