Function P(A:integer):boolean; Var d,K:integer; Begin P:=true; if A < 2 then P:=false else if A > 3 then if A mod 2 = 0 then P:=false else Begin K:=Trunc(Sqrt(A)); d:=3; While d <= K do Begin if A mod d = 0 then P:=false; d:=d+2 End; End; End; Var A,n:integer; S:real; Begin S:=0; Write('n = ');ReadLn(n); Write('Введите n чисел: '); For n:= 1 to n do Begin Read(A); if P(A) then S:=S+A; End; Write('S = ',S) End.
