Паскаль, составить программу: Найти равные значения из чисел 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.