Паскаль,составить программку: Найти одинаковые значения из чисел a, b, c, если

Необходимо писать поиск не состоялся, если нет одинаковых значений?

Var
a, b, c, x: longint;
begin
writeln('Введите a, b, c и x:');
readln(a, b, c, x);
if (x gt; 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.