А)Напишите процедуру(или через глобальные переменные),которая вычесляет произведЕние отрицательных элементов вектора. б)Напишите процедуру которая находит и заносит в массив простые числа меньше чем заданного(любого числа)натурального числа. (РЕШИТЕ НА БАЗЕ Turbo Pascal 7.0)

//Могу ошибаться, тестов не проводил//aType procedure proi(n:integer; var p:integer); i:integer;beginp:=1; for i:=1 to n do   if ar[i]<0 then p:=p*ar[i];end;//бprocedure proi(n:integer; var ar:array of integer); i,p,k:integer; b:boolean;beginp:=1;k:=0;b:=true;while p<n do begin  p:=p+1;  for i:=2 to p div 2 do  if p mod i=0 then    begin    b:=false;    break;   end;  if b=true then   begin    k:=k+1;    setlength(ar,k+1);    ar[k]:=p;   end;  b:=true; end;end;