Задача. Найдите в массиве все простые числа и скопируйте их в новый массив. 
Расположите операторы в нужном порядке.

• const n = 10;
  var A, B: array
  \[1\.\.n\]
  of integer;
  j, i, cnt, k: integer;
• function prost\(i:integer\):boolean;
• begin
  j:=2;
  while \(i mod j \\lt \\gt 0\) do inc\(j\);
  if i=j then prost:=true
  else prost:=false
  end;
• begin
  Randomize;
• for i := 1 to n do
  begin
  A
  \[i\]
  := random\(26\);
  Write\(A⟨1⟩:4\);
• if prost\(a⟨1⟩\) then
  begin
  cnt:=cnt+1;
  b
  \[cnt\]
  :=a
  \[i\]
  ;
  end;
• end;
• writeln;
  if cnt=0 then write\('Простых чисел нет'\)
  else
  begin
  writeln\('Простые числа'\);
• for i:=1 to cnt do
  write\(b⟨1⟩:3\);
  end;
• end.