POLA BILANGAN 2

uses wincrt;
var
a:real;
begin
a:=2/3;
while a < 486 do
begin
a:=a*3;
writeln(a:2:0);
end;
end.

DOWNLOAD FILE