Найти кол-во простых чисел в последовательности.

[_Wonder_]

Вводится последовательность целых чисел, конец ввода - число, в котором есть цифра 1. Найти количество простых чисел.

[Serge_Bliznykov]

и что конкретно не получается?
кстати, функцию проверки числа на простоту Вы легко найдёте поиском на форуме.

[_Wonder_]

Не получается остановить последовательность, если число содержит цифру 1.

[Serge_Bliznykov]

вариант 1.

var s : string;
  N : integer;
.....
  str(N, s);
  if Pos('1', s)>0 then {есть единица в числе - выходим из цикла}

вариант 2.

T := N;
while T>0 do begin
  if (T mod 10) = 1 then {есть единица в числе - выходим из цикла}
  T := T div 10;
end;