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

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

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