function omega(n: integer): integer;
var
   i, s : integer;
begin
   s := 0;
   for i :=1 to n div 2 do
      if (n mod i = 0) then
	 s := s + i;
   omega := s;
end;