"Запись числа 64(10) в системе счисления с основанием N оканчивается на 4 и содержит 3 цифры. Перечислите через запятую все такие N в порядке возрастания"

var
    n, i: integer;

begin
    for n := 2 to 36 do
    begin
        write('N=', n);
        for i := n * n to n * n * n - 1 do //тут само условие на 3 цифры
            if i mod n = 4 then
                write(' ', i);
        writeln;
    end;
end.

Вроде так