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

var SrAr:real;s, i, k:integer;begink:=0;s:=0;for i:=10 to 99 doif i mod 2<>0 then begin s:=s+i; k:=k+1; end;SrAr:=s/k;writeln(SrAr:5:5);end.