знайти послідовність чисел якщо 1 число = 3 а кожне наступне попередньо помножене на 3 останнє число не перевищує 30

Код Pascal:
Var A:integer;
Begin
A:=1;
While A<30 do
   Begin
   Write(A,' ');
   A:=A*3;
   End;
End.

Результат работы программы:
1 3 9 27