var
  x, y, z:integer;
function Check(x, y, z:integer):boolean;
  var checker:=false;
begin
  if (x = y) or (x = z) or (y = z) then
    begin
      if (x = y) then
        write(x, ' = ', y, #10)
      else if (x = z) then
        write(x, ' = ', z, #10)
      else if (y = z) then
        write(y, ' = ', z, #10);
      checker:=true;
    end
    else write(#10, '----------------', 'Нет равных между собой чисел', #10);
  Check:=checker;
end;
begin
  write('----------------', #10);
  x:=ReadInteger('Введите x: ');
  y:=ReadInteger('Введите y: ');
  z:=ReadInteger('Введите z: ');
  write('----------------', #10);
  write('----------------', #10, Check(x, y, z));
end.