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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.