ПОМОГИТЕ!!! ОЧЕНЬ НАДО!!!
Дано многоразрядное число N<=10^9. Найти среднее арифметическое цифр числа, разряды которых равны 2 и 5.
используя цикл

цифры, рахряды которых равны 1 и 6

var a, b, s, k:integer;beginwrite('a = ');readln(a);k:=0; s:=0;while a>0 do begin b:=a mod 10; if (b=2)or(b=5) then begin k:=k+1; s:=s+b; end; a:=a div 10; end;if k>0  then writeln('среднее арифметическое 2 и 5 =',s/k) else writeln('2 и 5 нет');end.Пример:a = 23454среднее арифметическое 2 и 5 = 3.5