program p_primos;

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; 

procedure primos(x: integer);
var
   i : integer;
begin
   for i := 1 to x do
      if omega(i) = 1 then
	 write(i, ' ');
   writeln;
end;

var
   x : integer;
begin
   writeln('Imprime todos os números primos entre 2 e x.');
   write('x: '); read(x);
   writeln('Números primos: ');
   primos(x);
end.