"Прості" числа

Дано набір різних натуральних чисел. Будемо називати число "простим для заданого набору", якщо число не ділиться ні на одне з чисел набору, крім самого себе.

Вхідні дані

У вхідному файлі у первшому рядку міститься ціле число N (1  ≤  N ≤  100) – кількість чисел у наборі. У другому рядку файлу міститься N різних цілих чисел від 1 до 1000000, відокремлених пропусками.

Вихідні дані

У вихідний файл вивести "прості для заданого набору" числа, відокремлюючи числа одним пропуском. Числа виводяться у тому ж порядку, у якому вони йшли у вхідному файлі.

Вхідні дані

6

10 5 3 15 6 8

Вихідні дані

5 3 8

program prosti_chisla;

var a,b : array [1..10000] of qword;

i,j,k,n,k1 : integer;

BEGIN

read (n);

for i:=1 to n do read (a[i]);

k1:=0;

for i:=1 to n do begin

k:=0;

for j:=1 to n do begin

if (a[i] mod a[j]=0) then k:=k+1;

end;

if k=1 then begin k1:=k1+1; b[k1]:=a[i]; end;

end;

for i:=1 to k1 do write (b[i],' ');

END.