Срочно !!!Вводится последовательность из N целых положительных элементов. Определить, содержит ли последовательность хотя бы одно простое число. Для определения простого числа создать процедуру.

через процедуру

Это что за псевдокод?

var i,N,a:integer;      [где а-вводимое число]beginfor i:= 1 to N do  begin  readln (a);  if a (условие на простое число)then writeln ('содержит') else writeln ('не содержит');  end;end.