даны три произвольных числа а,и,с. Если два из них являются отрицательными и четными, то вывеси на экран сообщения "да", иначе - соообщение "нет"

Паскаль

var a,b,c : real;

begin

if ((((a<0) and (b<0)) and ((a mod 2 =0) and (b mod 2 = 0)) ) or (((a<0) and (c<0)) and ((a mod 2 = 0) and (c mod 2 = 0)))) or (((b<0) and (c<0)) and ((b mod 2 = 0) and (c mod 2 = 0))) then 

            writeln('yes') else writeln ('no')

end.

(Проведи компиляцию, я со скобочками мог напортачить)