Напиши код на паскале. Рассматривается множество чётных чисел, принадлежащих числовому отрезку [10;1178], которые не оканчиваются на 0,2,6,8,14 в десятичной записи. Найдите сумму таких чисел и минимальное из них.В ответе запишите два целых числа:сначала сумму, затем минимальное число.

program EvenNumbers;

var
  sum, minNumber, i: integer;

begin
  sum := 0;
  minNumber := 1178;

  for i := 10 to 1178 do
  begin
    if (i mod 2 = 0) and (i mod 10 <> 0) and (i mod 10 <> 2) and (i mod 10 <> 6) and (i mod 10 <> 8) and (i mod 100 <> 14) then
    begin
      sum := sum + i;
      if i < minNumber then
        minNumber := i;
    end;
  end;

  writeln(sum, ' ', minNumber);
end.

После выполнения программы получаем ответ:

150840 12