Цикл(For)

[iSkulll]

Дано целое число N(>0).Последовательность вещественныхи чисел Ак определяется следующим образом: А1=1, A2=2 Ак=(Ак-1 +2*Aк-1)/3, К=3,4,... Вывести элементы А1,А2,...Аn

[Swarog]

 readln(n);
 if n >= 1 then
  writeln(1);
 for i := 2 to n do
  begin
   writeln(2);
  end;

либо попровь формулу расчета