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

Ответ от ?[гуру]
Вся надежда на экстрасенсов. Будем дальше гадать какой язык.. .
program x;
var
 i, p: integer;
 a: array [1..10] of integer;
begin
 p := 1;
 for i := 1 to 10 do
 begin
  Write('a[', i, '] = ');
  ReadLn(a[i]);
  if a[i] < 0 then
   p := p * a[i];
 end;
 for i := 1 to 10 do
  Write(a[i], ' ');
 WriteLn;
 WriteLn('Proizvedenie = ', p);
 ReadLn;
end.