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

// счет разрядов от нуля справа налево: ХХХ5ХХ2ХХvar  n:longint;  a,b,k,d:integer;begin  Write('Введите натуральное число длиной 6-9 цифр: ');  Read(n);  k:=0;  while n>0 do begin    d:=n mod 10;    if k=2 then a:=d    else      if k=5 then b:=d;    Inc(k);    n:=n div 10    end;  Writeln('Ср. арифм. разрядов 2 и 5 равно ',(a+b)/2)end.ПримерВведите натуральное число длиной 6-9 цифр: 123456789Ср. арифм. разрядов 2 и 5 равно 5.5