Дана последовательность натуральных чисел до 0,вывести все двузначные числа, у которых старшая цифрв больше младшей. Посчитать их сумму и ср арифмитическое. Pascal ABC

var  i,s,n:integer;  begin  n:=0; s:=0;  for i:=0 to 99 do    if i>9 then      if i div 10 > i mod 10 then begin        n:=n+1; s:=s+i;        end;  Writeln('Сумма ',s,', ср. арифметическое ',s/n)end.РезультатСумма 2970, ср. арифметическое 66