Вывести все двухзначные числа с чётной суммой цифр. (программа на paskal)

ответ:

program sumnum;

var

  i: integer;

begin

  for i : = 10 to 99 do begin

    if (i div 10 + i mod 10) mod 2 = 0 then

      write (i, ' ');

  end;

  readln;

end.

program sport; uses crt; const n = 10; {количество оценок}var {раздел описания переменных}  a: array [1..n] of integer; {массив с оценками}  max,min,i: integer; {max и min - наибольшая и наименьшая оценки; i -счётчик}  sum: real; {сумма, а потом среднее арифметическое (результат)} begin  writeln('просим судей выставить свои оценки: '); {вывод строки}   for i: =1 to n do {организуем цикл ввода оценок}      begin          write(i,'-й судья: '); readln(a[i]); {вывод строки и ввод оценки}      end;   writeln(); {вывод пустой строки (для красоты)}  min: =a[1]; {предполагаем для начала, что первая оценка - наименьшая}  max: =a[1]; {также предполагаем для начала, что первая оценка - наибольшая}  sum: =0; {для начала сумма равна 0}  for i: =1 to n do {организуем цикл для перебора всех оценок}      begin          if max< a[i] then max: =a[i]; {если текущая оценка больше max, то запоминаем её в max}           if min> a[i] then min: =a[i]; {если текущая оценка меньше min, то запоминаем её в min}          sum: =sum+a[i]; {добавляем текущую оценку к сумме}      end;       sum: =(sum-max-min)/(n-2); {здесь самое интересное: из суммы всех оценок вычитаем наибольшую и наименьшую, а полученный результат делим на 8 - количество оставшихся оценок. получается среднее арифметическое}   writeln('итоговая оценка ',sum: 7: 2) {выводим результат} end.