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

Паскаль 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.   (Проведи компиляцию, я со скобочками мог напортачить)