Космонавты решили на луне садить берёзы, причем каждый год увели-чивать число бер?

N:=3; i:=0; while n<=10000 do begin i:=i+1; n:=n*2; end;