program lab6;

{$APPTYPE CONSOLE}

 //Простые множители максимального нечетного числа
uses
  System.SysUtils;

var
A:array[1..1000] of integer;
B:array[1..1000] of integer;
C:array[1..1000] of integer;
i,f,n,n1,kol,n1,m,max,del:integer;
begin
  kol:=0;
  n1:=0;
  m:=2;
  del:=1;
  write('Введите количество элементов массива '); readln(n);
  writeln('Введите элементы массива, содержаший ',n,' элементов, с диапазоном от 0 до 10000');
  for i:=1 to n do read(A[i]);
  for i:=1 to n do
  if A[i] mod 2 = 1 then
  begin
    kol:=kol+1;
    if kol = 1 then max:=A[i];
    if kol > 1 then
    if max < A[i] then max:=A[i];
  end;
  writeln('Максимальное нечетное число = ',max);
  for i:=1 to max do
  begin
    B[1]:=max;
    if (max mod i = 0) and (i <= max) then
    begin
      B[m]:=i;
      writeln(B[m]);
      m:=m+1;
    end;
  end;
 // for i:=1 to m do writeln(B[m]);
  for i:=1 to m do
  begin
    //f:=f+1;
    for i:=1 to B[m] do
    begin
      if (B[m] mod i = 0) and (i < B[m]) then n1:=n1+1;
      if (n1 = 1) then
      begin
        C[del]:=B[m];
        del:=del+1;
      end
      else n1:=0;
    end;
  end;
  for i:=1 to del do
  writeln('Простой ',C[del]);





















   readln;readln;
   end.