Написать программу на языке паскальуровень b. заполнить массив случайными числами в интервале [0, 100] и отобрать в другой массив все простые числа. используйте логическую функцию, которая определяет, является ли переданное ей число простым

// pascalabc.net 3.0, сборка 1088 const   nn=100; type   vector=array[1..nn] of integer; function min(a: vector; n: integer): integer; var   i,m: integer; begin   m: =a[1];   for i: =2 to n do       if a[i]< m then m: =a[i];   min: =m end; var   v: vector;   i,n,m,mn: integer; begin   write('количество элементов вектора: '); read(n);   write('значение m: '); read(m);   randomize;   writeln('*** сгенерированный вектор ***');   for i: =1 to n do begin       v[i]: =random(101)-50;       write(v[i],' ')       end;   writeln;   mn: =min(v,n);   if mn< =m then writeln('минимум ',mn,' не превышает ',m)   else writeln('минимум ',mn,' превышает ',m) end. тестовое решение: количество элементов вектора: 20 значение m: -42 *** сгенерированный вектор *** -12 10 -47 8 6 -22 -4 8 -50 -2 36 -38 -39 -41 11 -46 41 -22 -50 24 минимум -50 не превышает -42

Var  a, b: real;   begin  writeln('введите два числа');   readln(a, b);   //вводим числа а и b  writeln('среднее арифметическое кубов этих чисел:   ', ((a * a * a) + (b * b * b)) / 2 : 0 : 5);   {печатаем среднее арифметическое кубов этих чисел с округлением до 5 знаков после запятой}  writeln('среднее модулей этих чисел:   ', sqrt(abs(a) * abs(b)) : 0 : 5);   {печатаем среднее модулей этих чисел с округлением до 5 знаков после запятой} end.