Составить алг для нахождения среднего арифметического нечетных двузначных чисел в паскале

1)// PascalABC.NET 3.3begin  writeln(Range(11,99,2).Average);end.Результат:552)var s,k,i:integer;begins:=0; k:=0;for i:=11 to 99 do if i mod 2=1 then begin s:=s+i; k:=k+1; end;writeln(s/k:4:1);end.Результат:55.0