Дано n натуральных чисел. найти сумму простых чисел из этой последовательности. написать функцию определяющую простое число

program zz1;

var n, i, a, s:integer; / / вводим переменные целого типа

function pr (n: LongInt) : boolean; / / функция определения простого числа

var

i: LongInt;

begin

for i : = 2 to Round (Sqrt (n)) do

if n mod i = 0 then

break;

pr : = n mod i 0;

end;

begin

write (' введите число '); / / вводим с клавиатуры число

read (n);

for i:=1 to n do / / организуем цикл

begin

read (a);

if pr (a) then s:=s + a; / / находим сумму простых чисел

end;

write (' сумма простых чисел заданной последовательности = ', s); / / выводим ответ

end.