Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,s: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to a div 2 do
                If a mod i = 0 then exit(false);
                                    exit(true);
End;

Begin
        Clrscr;
        Write('Nhap so luong phan tu: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        s:=0;
        Write('Cau a: Xuat ra cac phan tu la so le: ');
        For i:=1 to n do
        Begin
                If A[i] mod 2 = 0 then s:=s+A[i];
                If A[i] mod 2 = 1 then Write(A[i],' ');
        End;

        Writeln;

        Write('Cau b: Tong cac phan tu la so chan: ',s);
        Writeln;

        Write('Cau c: Xuat ra cac so nguyen to: ');
        For i:=1 to n do
                If ngto(A[i]) then Write(A[i],' ');
        Readln
End. 

Program CTNMT;

Uses crt;

Var n,i,dem: longint;

A: array [1..1000] of longint;

Begin

Writeln('Ban hay N'); Readln(n);

For i:=1 to n do

Begin

Writeln('Nhap so thu ',i); Readln(a[i]);

End;

Writeln('In ra mang:');

For i:1 to n do Write(a[i]:5);

Writeln;

Writeln('In ra so chan trong mang');

For i:= 1 to n do

Begin

If (a[i] mod 2) = 0 then Write(a[i]:5)

If a[i] < 0 then dem:= dem +1;

End;

Writeln('so so nguyen am la: ',đem);

Readln;

End.