Hãy viết chương trình nhập vào 1 dãy số bất kỳ .Cho biết dãy số đó có bao nhiêu nguyên tố, có bao nhiêu số lẻ và bao nhiêu số chẵn?

Var n,d,dc,dl,i: longint;
    A: array[1..100000] of longint;

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

Begin
        Read(n);
        For i:=1 to n do
        Begin
                Read(A[i]);
                If ngto(A[i]) then inc(d);
                If A[i] mod 2 = 0 then inc(dc)
                Else inc(dl);
        End;
        Writeln(d);
        Writeln(dl);
        Write(dc);
        Readln
End.