ПОМОГИТЕ!!!!!!!!!!! ОЧЕНЬ НАДО!!!!!!!!!
Дано многоразрядное число 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.