1 клетка = 10
Каждый проход нарисован новым цветом
Первый - синим
Второй - голубым
Третий - зеленым
Красный - движение с поднятым хвостом, т.е. когда черепашка передвигается но не рисует
Program Test;
Var
N,n1,tst,i,count:integer;
Begin
readln(N);
while n1<N do begin
n1:=n1+1;
count:=0;
for i:=1 to n1 do begin
if n1 mod i = 0 then inc(count);
end;
if n1>1 then if count=2 then writeln(n1);
end;
<span>End.</span>
Исходя из формулы N=2^b, где b-вес одного символа получаем: 16 = 2^4