Помогите написать программу в Pascal!
Дан одномерный
целочисленный массив А, состоящий из N элементов, N- заданное натуральное число, пусть max- наибольшее, min- наименьшее
значения среди элементов массива. Составить одномерный массив В из простых
чисел и сегмента [min,max],которые не являются элементами массива А, записав его
элементы в порядке неубывания. Если таких элементов нет, то выдать соответствующее
текстовое сообщение. 

k:=1;//счетчик индеса для В. Надо описать его в varfor j:=min to max do if(prime(j)) then begin//если не простое, то переходим к следующему p:=0;//признак того, что этого числа в С нет for i:=1 to n do if j=c[i] then p:=1;//признак того, что число в С есть if p=0 then b[k]:=j;//если в С его нет, заносим его в В inc(k); end;end;

И определение простоты числа какая-то сложная функция. Можно проще:

function prime(a:integer):boolean; //функция определяет, является ли число простымvar i:integer;beginprime:=true;for i:=2 to (a div 2) do if a mod i=0 then prime:=false;end;

да я любитель помудрить)

вообще, логичное решение выше, сейчас, к сожалению, проверить не могу, но спасибо:)