6.1 (перебор)

var
    i, count, min, max:longint;
begin
    count := 0;
    min := 999999;
    max := 0;
    for i:= 1033 to 7737 do
        if( (i mod 5 = 0) and not(i mod 11 = 0) and not(i mod 17 = 0) and not(i mod 19 = 0) and not(i mod 23 = 0) ) then begin
            count := count + 1;
            if (i < min) then
                min := i;
            if (i > max) then
                max := i;
        end;
    write(count, ' ',  max, ' ', min)
end.