Дано 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 lt;gt; 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.