program Cau_1;

uses crt;

var A:array [1..500] of integer;

      n,i,T,max,j,d: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         max:=1;

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

                  T:=T+A[i];

                  if max<A[i] then max:=A[i];

         end;

         writeln('Tong cac phan tu = ',T);

         writeln('Phan tu lon nhat: ',max);

         write('Cac so nguyen: ');

         for i:=1 to n do

         begin

                  d:=0;

                  for j:=1 to A[i] do

                  if A[i] mod j=0 then d:=d+1;

                  if d=2 then write(A[i],'  ');

         end;

         readln

End.

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.