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

var a:integer;begina:=2187;while a>1 do begin write(a,'  '); a:=a div 3; end;end.Результат:2187  729  243  81  27  9  3