Найдите в массиве все простые числа и скопируйте их в новый массив. С командой array без рандомайза!Паскаль. СРОЧНО!!!!!!

программа просто убирает 0

простые числа делятся только сами на себя и на 1

Я знаю. Исправить уже никак не получится.

Допустил ошибку.

исправь ошибку

var a,b: array[1..10] of Integer;i,n: integer;beginn:=1;for i:=1 to 10 do readln(a[i]);for i:=1 to 10 dobeginif a[i]<>0 then beginb[n]:=a[i];inc(n);end;end;if n=1 then writeln('Элементов нет') elsefor i:=1 to n-1 do writeln(b[i]);end.