program z16_18;
var
a:array [1..100] of integer;
n,m,i,j, max : integer;
k:boolean;
begin
writeln('Введите количество элементов массива');
readln(n);
for i:=1 to n do
begin
write('Введите ',i,' элемент массива ');
readln(A[i]);
end;
max:=A[1];
for i:=1 to n do
if A[i]>max then max:=A[i];
if max<>1 then begin
k:=true;
for i:=2 to max div 2 do
if max mod i =0 then k:=false;
if k then writeln('максимальный элемент массива ',max,' является простым числом')
else writeln('максимальный элемент массива ',max,' не является простым числом');
end
else writeln('максимальный элемент массива ',max,' не является простым числом')
End.