Question

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

Answer 1

Var
  n:longint;
  s:string;
  k:integer;
begin
  Read(n);
  Str(n,s); k:=Length(s);
  Writeln(Ord(s[k-1])+Ord(s[k-4])-2*Ord('0'))
end.