<span>Сообщения, осведомляющие о положении дел, о состоянии чего-н.</span>
1. for i := 2 to n div 2 do if (n mod i = 0) and ((n mod c = 0) or (n mod d = 0)) then s := s + i;
2. for i := 2 to n div 2 do if (n mod i = 0) then begin s := s + i; inc(c); end;
writeln( 'Среднее: ', s / c );
10 даже понятия не имею о чем речь;)