function F(a: integer): integer;
begin
  result := 0;
  for var i := 1 to a div 2 do
    if a mod i = 0 then
      result += i;
end;

begin
  var a := ReadArrInteger(5);
  for var i := 0 to a.High do
    if a[i] = F(a[i]) then
      Print(a[i])
end.