program p_omega;

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; 

var
   x : integer;
begin
   writeln('Imprime a soma dos divisores de x.');
   write('x: '); read(x);
   writeln('Soma dos divisores = ', omega(x));
end.