разобраться с этим заданием. Я не понимаю последнее условие в этой задаче, решал методом отображения. Без последнего условия получился ответ 32, как решить последнее условие? В ответе 42, а как решить не понимаю.

@ впервые показали в начале 15 века. Испанские купцы пользовались таким знаком для обмеривания товара. Мера использовалась при покупке скота или вина,это своеобразное сокращение от " arroba",полного названия этой меры. Дальше этот знак использовался в качестве ценника ,а также,пометки для отчётов бухгалтеров. Только после столь длительного пути,этот знак оказался на наших клавиатурах. Рэй Томлинсон стал первым кто сумел отправить настоящее электронное письмо. Электронные коммуникации начали своё развитие именно в тот момент, когда письмо передали между компьютерами-это и было первый e-mail.

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.