Знайти послідовність чисел якщо 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