Арифметическая прогрессия

[ddddd_0110]

Вычислить арифметическую прогрессию Аi+1=Ai+2 до тех пор пока Аi <180 и вывести количество итерации

[newerow1989]

2 вопроса:
1)
Начальные условия какие?
2)

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

Аi+1=Ai+2

Что это означает? Все элементы одинаковы что ли?

[p51x]

A[i+1] = A[i] + 2

[newerow1989]

var ai,ai1,n:integer;
begin
   Write('a[1] = '); Readln(ai1);
   n:=1;
   Repeat
      ai:=ai1;
      ai1:=ai+2;
      Inc(n)
   Until ai>=180;
   Writeln('a[',n,'] = ',ai);
   Readln;
end.