uses crt;
var a:array[1..100] of integer;
      n,i,j,count,count1,tong:integer;
begin
clrscr;
write('Nhap n: ');readln(n);
if ( n<0 ) then
begin
writeln('So nhap vao khong thoa man.');
write('Moi nhap lai: );readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,']: ');
readln(a[i]);
end;
writeln('Day vua nhap la: ');
for i:=1 to n do
write(a[i],'  ');
i:=2;
count:=0;
while (i<=n) do
begin
if ( (a[i] mod 2 ) <> 0 ) then count:=count+1;
i:=i+2;
end;
write('So luong so le o vi tri chan: ',count);
writeln;
tong:=0;
for i:= 1 to n do
begin
count1:=0;
if ( a[i] > 0 ) then 
begin
for j:=1 to a[i] do
begin
if ((a[i] mod j) = 0) then count1:=count1+1;
end;
end;
if (count1 = 2) then tong:=tong+a[i];
end;
write('Tong cac so nguyen to trong day: ',tong);
readln;
end.

// Nếu bị lỗi thì ib để sửa