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

begin
var (a,b,c):=ReadInteger3('Введите 3 числа->');
if (a<0) and (b<0) and (c<0)
then PrintLn('Произведение:',a*b*c) else
if (a<0) and (b<0)
then PrintLn('Произведение:',a*b) else
if (a<0) and (c<0)
then PrintLn('Произведение:',a*c) else
if (b<0) and (c<0)
then PrintLn('Произведение:',b*c) else
Println('Отрицательных нет');
end.

P.S писал на скорую руку, на телефоне, проверь, среда PascalABC.NET