uses crt;
var
a:array[1..100] of integer;
t,max,i,n:integer;
function songuyento( n:integer):boolean;
var
i:integer;
ok:boolean;
begin
ok:=true;
for i:=2 to n-1 do
if n mod i=0 then ok:=false;
songuyento:=ok;
end;
begin
clrscr;
write('nhap so phan tu cua day: '); readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu [',i,']: '); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
write('Tong cac phan tu trong day so la: ',t);
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
write('phan tu lon nhat la: ',max);
writeln;
write('Cac so nguyen to trong day la: ');
for i:=2 to n do
if songuyento(a[i]) then write(a[i],' ');
readln;
end.
