Question

Дано 9-значное целое число. Найти среднеарифметическое цифр с 5-ой по 7 включительно 
 Сделайте срочно в Паскале!

Answer 1

123456789
5
6
7
program gt;
var n,a,b,c:integer;
s:real;
begin
readln(n);
a:=(n mod 100000)div 10000;
b:=(n mod 10000)div 1000;
c:=(n mod 1000)div 100;
s:=(a+b+c)/3;
writeln(s);
end.