Программа

Program Pilshikov_5_52 (input,output);
{ Дана последовательность из не менее
  чем двух натуральных, за которой
  следует 0. Вычислить сумму тех из
  них, порядковые номера которых -
  простые числа. }
Var N,NumberN,Sum,i:integer;
    NumberNIsSimple:boolean;
BEGIN
  Sum:=0;
  NumberN:=0;
  repeat
    NumberN:=NumberN+1;
    Write('Введите ',NumberN,' число ');
    Readln(N);
    if N<>0 then
      Begin
        NumberNIsSimple:=NumberN<>1;
        if NumberNIsSimple then
          begin
            i:=NumberN div 2;
            while (i>1) and NumberNIsSimple do
              begin
                NumberNIsSimple:=NumberN mod i <>0;
                i:=i-1
              end;
            if NumberNIsSimple then Sum:=Sum+N
          end
      End
  until N=0;
  Writeln('Sum=',Sum)
END.