Viết chương trình nhập vào mạng A gồm N phần tử (N nhập từ bàn phím) câu a: in ra các số lẻ ,câu b: in ra tổng phần tử chẵn ,câu c: in ra các số nguyên tố

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.