Из точки А в точку Ж есть 11 путей.
Прости, что отвечаю через 2 часа, был не дома)
var
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;
Решение смотри в приложенном скриншоте.
Перевод: 1024- 10000000000, 673- 101010001, 513-10000000001, 718- 1011001110. Это перевод из десятичной системы в двоичное кодирование! Не за что!