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

var a, b, s, k:integer; begin write('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