тк условие у нас <= последняя итерация цикла произойдет при значении X=10в этой итерации значение X станет равным 12 при последующей проверке значения (while) x не удовлетворит условию и цикл завершится. а колво элементов массива есть? i:=1; while ibegin if a[i]<0 then do c:=c*a[i]; end;c:=1; где k колво элементов массива честно говоря совершенно не помню что такое множественные переменные и с чем их едят.а диапазон чисел из которого нужно выбрать натуральные числа большой? если большой то прога будет робить долго. примерно так пусть в некоторой переменной А будет диапозон чисел из которых нужно выбрать натуральные(т. е от 1 до А) сразу записываем в number 0 и 1(ибо априори натуральные) затем for i:=2 to A do begin m:=o;{где m - количество мнжителей у i-го числа} for j:=i-1 downto 2 do begin if (j mod i)=0 then do m:=m+1; end; if m=0 then {здесь записываем число в number} end; {выводим number} number и запись в него реализуешь сам Добавлено спустя 4 минуты 1 секунду: если будет действиельно надо то завтро после 17:00 долби в асю 477-492-549 там разберемся