= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

// PascalABC.NET 3.2, сборка 1377 от 19.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadlnInteger; // количество чисел в последовательности
  var s:=ReadArrInteger(n); // читаем последовательность
  if s.Any(x-gt;x=1) then
  else begin
    foreach var m in s do
      if s.Where(x-gt;(mgt;=x) and (m mod x =0)).Count=1 then Print(m);
    Writeln
    end
end.

Пример
6
10 5 3 15 6 8
5 3 8

#include lt;iostreamgt;

using namespace std;

int main() {
 int n;
 cin gt;gt; n;
 int a[n];
 for(int i = 0; i lt; n; i++)
   cin gt;gt; a[i];
 for(int i = 0; i lt; n; i++) {
   int flag = 1;
   for(int j = 0; j lt; n; j++)
      if(a[i] a[j] != 0 amp;amp; i != j) {
         flag = 0;
         break;
      }
   if(flag) cout lt;lt; a[i] lt;lt; ;
  }
}