Даны три целых числа отыскать творенье отрицательных чисел в начальном комплекте.

и на каком же языке программирования аа

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