Дано многоразрядное число 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

Из большего вычитаем меньшее:

поместить вычитаемое под уменьшаемое, записать единицы под единицами, десятки под десятками и т.д.

вычесть поразрядно.

если необходимо занять десяток из большего разряда, то над разрядом, в котором заняли, поставить точку. Над разрядом, для которого заняли, поставить 10.

если в разряде, в котором заняли, стоит 0, тогда занимаем из следующего разряда уменьшаемого и над ним ставим точку. Над разрядом, для которого заняли, поставить 9, т.к. один десяток уже занят

если исходное вычитаемое было больше уменьшаемого, результату присваиваем знак минус

C самого детства-я считал, что в вычислительных машинах таилось нечто особенное, непонятное многим людям. В возрасте 6 лет я точно определился-компьютеры-моя любовь. Достаточно много времени с того момента, и я уже во многом разбираюсь, но до сих пор точно не определился, на какую специализацию пойти в будущем, ведь их так много! Информационная безопастность, прикладная информатика, программирование автоматизированных систем, web программирование, специалицазии на определенных языках программирования...-у меня разбегались глаза. Впрочем я и сегодня, занимаясь письмом этого сочинения до сих пор думаю о своем "Великом выборе".

Однако одно я могу заявить точно, с настоящей гордостью-"Я люблю компьютеры и хочу связать с ними свою жизнь!"