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

var a:integer;
begin
a:=2187;
while a>1 do
 begin
 write(a,'  ');
 a:=a div 3;
 end;
end.

Результат:
2187  729  243  81  27  9  3