var z,z1:longint;x,x1,max,k:word;
begin
  writeln('Введите длину последовательности...');
  readln(z);
  writeln('Введите заданное кол-во натуральных чисел...');
  max:=0;
  for z1:=1 to z do
  begin
    readln(x);
    k:=0;
    for x1:=1 to x do
      if x mod x1=0 then k:=k+1;
    if (k=2)and(x>max) then max:=x; 
  end;
  if max=0 then writeln('В данной последовательности нет простых чисел')
  else writeln('Наибольшее просто число: ',max);
end.