Напечатать на экране числа 2187,729,243, ...,3.

program zz1;

var a:integer; / / задаем переменные целого типа

begin

a:=2187; / / задаем начальное число ряда

while a > = 3 do / / организуем цикл, пока число ряда не достигнет последнего числа равного трем

begin

write (' ', a); / / выводим ответ в строчку через пробел

a: = a div 3; / / получаем следующее число из ряда

end;

end.