Рассматривается множество целых чисел, принадлежащих числовому отрезку (2807; 8558)

 program MaxNumberSum; 
var 
  maxNumber, sum, num, count: integer; 
 
begin 
  // Инициализируем максимальное число и сумму 
  maxNumber := 0; 
  sum := 0; 
  // Начинаем считать числа, начиная с 2808 и заканчивая 8558 
  for num := 2808 to 8558 do 
  begin 
    // Проверяем условия: число в двоичной системе заканчивается на 11 
    // и число в девятеричной системе заканчивается на 5 
    if (num mod 4 = 3) and (num mod 9 = 5) then 
    begin 
      // Если число удовлетворяет условиям, обновляем максимальное число 
      maxNumber := num; 
      // Увеличиваем сумму на текущее число 
      sum := sum + num; 
      // Увеличиваем счетчик чисел 
      count := count + 1; 
    end; 
  end; 
  // Выводим результаты 
  writeln('Максимальное число: ', maxNumber); 
  writeln('Сумма чисел: ', sum); 
end.