Решите, , в паскале. 1) одномерный массив из 10 элементов задан датчиком случайных чисел на интервале от -1 до 6. найти произведение квадратов отрицательных элементов массива, массив вывести в строку. 2) одномерный массив задан формулой a[i]=21-1. найти полу сумму элементов массива.

Var a: array[1..10] of integer;
    i,s: integer;
    priz: boolean;
begin
  randomize;
  write('массив:  ');  s:=1;
  priz:=false;
  for i:=1 to 10 do
   begin
    a[i]:=random(-1,6);
    write(a[i],' ');
    if a[i]<0 then
    begin
      s:=s*sqr(a[i]);
      priz:=true;
    end;
    end;
  writeln;
  if priz then    writeln('произв. квадратов отрицат. элем. = ',s)
  else writeln('нет отрицательных элементов');
  end.