program sred_ar;
var
  num, sum: integer;
begin
  sum := 0;
  write('Введите семизначное число: '); read(num);
  for var k := 1 to 7 do 
  begin
    sum += num MOD 10;
    num := (num - num MOD 10) div 10;
  end;
  write('Среднее арифметическое цифр числа: ',sum / 7:0:2);
end.