решить задачу N= 65536 K= 1600 X 1200 I=? T= 9

Uses
    System.Collections.Generic,
    System;

var
    simple: List<integer> := new List<integer>;
    i, n, p: integer;
    m: longint;

begin
    read(n);
    for i := 2 to n do
    begin
        m := 1;
        foreach s: integer in simple do
            m := m * i mod s;
        if m > 0 then begin
            simple.Add(i);
//            write(i, ' ');
        end;
    end;
    writeln();
   
    foreach s: integer in simple do
    begin
        if Math.Pow(2, s) - 1 <= longint.MaxValue then begin
            m := round(Math.Pow(2, s) - 1);
            if (m <= n) and simple.Contains(m) then
                write(m, ' ');
        end;
    end;
end.

Объяснение:

Хочу показать табличный решения подобных задач по шагам.  

Шаг первый. Лена и Аня - сладкоежки. Исключаем капусту и сметану.  

Шаг второй. Аня любит сладкие пироги. Помечаем зеленым цветом для Ани пироги с вареньем. Ване достались пироги с капустой.  

С пирогами разобрались. Помечаем коричневым цветом горизонтали с пирогами.  

Шаг третий. Лене достались блины с вареньем. Помечаем зеленым цветом  для Лены эту клетку, а всю горизонталь - коричневым.  

Шаг четвертый. Осталась одна не закрашенная клетка - для Светы оладьи со сметаной. Закрашиваем ее зеленым цветом.