uses crt;
var i,min,tong,dem,n,j:longint; a:array[1..10000]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while (a>1)and(a mod i<>0) do inc(i);
nt:=a=i;
end;
begin
clrscr;
write('N=');readln(n);
min:=high(longint);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if a[i]<min then min:=a[i];
if a[i] mod 2=0 then inc(tong,a[i]);
if nt(a[i]) then inc(Dem);
end;
writeln('Phan tu min: ',min);
writeln('Tong cac so chan: ',tong);
writeln('So luong so nguyen to: ',dem);
readln
end.
