KTNT Pascal

var    n,i,d,x:longint;

function ktnt(n:int64):boolean;
begin
    if n<2 then exit(false);
    if (n=2) or (n=3) then exit(true);
    for i:=2 to trunc(sqrt(n)) do
           if n mod i = 0 then exit(false);
    exit(true);
end;

procedure giai;
var    i:longint;
begin
    read(n);
    for i:=1 to n do
    begin
        read(x);
        if ktnt(x)=true then inc(d);
    end;
    write(d);
end;

begin
    assign(input,'ktnt.inp');reset(input);
    assign(output,'ktnt.out');rewrite(output);
    giai;    
end.