Ввести n чисел и найти сумму простых чисел в паскале

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.