Viết chương trình nhập vào dãy số nguyên dương .In ra tổng của các số vừa nhập,đếm và tính tổng các số nguyên tố có trong dãy số vừa nhập

uses crt;
var n, i, sum, res, cnt, x: longint;

function prime(n: longint): boolean;
var i: longint;
begin
    if n < 2 then exit(false);
    for i:=2 to trunc(sqrt(n)) do 
        if n mod i = 0 then exit(false);
    exit(true);
end;

begin
clrscr;
    readln(n);
    for i:=1 to n do 
        begin
            read(x);
            inc(sum, x);
            if prime(x) then
                begin
                    inc(res, x);
                    inc(cnt);
                end;
        end;

    writeln(sum);
    writeln(res);
    writeln(cnt);
readln; readln;
end.