Последовательность (Паскаль)

[slavec]

Прошу помочь с написанием программы для вывода последовательности.

Цепочка образуется следующим образом:
следующий = предыдущий делённый на 2, если предыдущий - четное число;
следующий= 3 * следующий, если предыдущий - нечётное число

Заранее спасибо.
ВОзможно ли, что в задании допущена ошибка?

[.Phoenix]

Объявляешь массив n-ой размерности. К первому компоненту присваиваешь число. Если odd(компонент1)=false, то компонент2=компонент1/2 иначе компонент2=компонент2*3
Оператор odd - проверка на четность, true в случае нечетности, false в случае четности.

[Serge_Bliznykov]

ВОзможно ли, что в задании допущена ошибка?

должно быть условие окончания вывода последовательности (это либо достижение какой-то границы (величины членов последовательности), либо,
как было сказано выше - указание N - сколько членов последовательности вывести..
например:

  var i, N, a : integer;
begin
   WriteLn('vvedite pervyi element posledovatelnosti: ');
   Readln(a);
   WriteLn('Vvedite, skolko elementov vyvodit: ');
   Readln(N);
   
   for i:=1 to N do begin
      Write(a:4,' ');
      if odd(a) then a:= a*3
      else a:= a div 2;
   end;
   readln; 
end.

[slavec]

Большое спасибо.

[slavec]

Завершение работы должно быть при достижении первого члена равного 1.
НИже приведенный код вылетает.
ПОдскажите пожалуйста как исправить.

program pnep;

var  a:integer;

begin

  writeln('Ievadiet a');
  readln(a);

  while(a<>1) do begin
      Write(a,' ');
      if odd(a) then a:= a*3
      else a:= a div 2;
  end;
  readln;
End.