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

program zz1;var a, b, c, p:integer; // вводим переменные целого типаbeginwrite(\' введите первое число \'); // вводим с клавиатуры первое числоread(a);write(\' введите второе число \'); // вводим с клавиатуры второе числоread(b);write(\' введите третье число \'); // вводим с клавиатуры третье числоread(c);if (a < 0)and(b < 0)and(a mod 2 = 0)and(b mod 2 = 0) then p:=1; // проверяем на отрицательность и четность введенные числаif (a < 0)and(c < 0)and(a mod 2 = 0)and(c mod 2 = 0) then p:=1;if (b < 0)and(c < 0)and(b mod 2 = 0)and(c mod 2 = 0) then p:=1;

// выводим ответif p = 1 then write(\' да \' ) else write(\' нет \');end.