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

Код Pascal:Var A:integer;BeginA:=1;While A<30 do   Begin   Write(A,' ');   A:=A*3;   End;End.Результат работы программы:1 3 9 27