Дано многоразрядное число n< =10^9. найти среднее арифметическое цифр числа, разряды которых равны 2 и 5.

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.