Дан массив вещественных чисел. Найти произведение отрицательных элементов.

uses crt;
var
   s:real;
begin
clrscr;
write('Введите стоимость покупки:');
readln(s);
if s>1500 then
   begin
   writeln('сумма больше 1500. у вас скидка 5%.');
   s:=s-(s/100*5)
   end
   else
   writeln('сумма меньше 1500. у вас нет скидки');
writeln('Стоимость покупки составит:',s);
end.

uses crt;
const
   n=10;
var
   a:array[1..n] of integer;
   pr,i:integer;
begin
clrscr;
randomize;
pr:=1;
writeln('массив');
for i:=1 to n do
    begin
         a[i]:=random(6)-3;
         write(a[i],' ');
         if a[i]<0 then
         pr:=pr*a[i];
    end;
writeln;
writeln('произведение отриц. элементов:',pr);
end.

uses crt;
const
   n=5;
var
   a:array[1..n,1..n] of integer;
   sum,i,j:integer;
begin
clrscr;
randomize;
writeln('матрица');
for i:=1 to n do
    begin
    sum:=0;
         for j:=1 to n do
             begin
             a[i,j]:=random(10)-5;
             write(a[i,j]:3);
             if i mod 2 <> 0 then
             sum:=sum+a[i,j];
             end;
             if i mod 2 <> 0 then
             write('  сумма строки ',i,' = ',sum);
        writeln;
    end;
end.