vara, b, c, x: longint;beginwriteln('Введите a, b, c и x:');readln(a, b, c, x);if (x > 2) then beginif (a = b) thenwriteln('a и b равны');if (b = c) thenwriteln('b и c равны');if (a = c) thenwriteln('a и c равны');endelsewriteln('Поиск не состоялся');end.