Вычислите первйы отрицательный член последовательности

[pashqa]

Вычислите первый отрицательный член последовательности cos(ctg(n)), n =1,2,3,....Отрицательные члены в этой последовательности обязательно есть......Помогите решить пожалуйста,а то чето вообще никак не въеду чё тут делать...Буду очень благодарен.

[Niro]

repeat
   n:=n+1;
   s:=cos(cos(n)/sin(n));
until s<0;

Вот и всё

[pashqa]

Сообщение от Niro

repeat
   n:=n+1;
   s:=cos(cos(n)/sin(n));
until s<0;

Вот и всё

а с помощью while или for можешь написать?

[GetMax]

While S >= 0 do
Begin
   n:=n+1;
   s:=cos(cos(n)/sin(n));
End;