Паскаль,составить программу: найти равные значения из чисел a, b, c, если введенное число x больше 2, иначе вывести сообщение «поиск не состоялся»

Var
a, b, c, x: longint;
begin
writeln('Введите a, b, c и x:');
readln(a, b, c, x);
if (x > 2) then begin
if (a = b) then
writeln('a и b равны');
if (b = c) then
writeln('b и c равны');
if (a = c) then
writeln('a и c равны');
end
else
writeln('Поиск не состоялся');
end.