5. Напишите программу на паскале для решения следующей задачи: даны два числа х и у, не равные друг другу. Меньшее из этих чисел увеличить на 1, а большее уменьшить на 1.

Программа на Pascal:

program ChangeNumbers;
var
  x, y, minVal, maxVal: Integer;
begin
  Write('Введите первое число (x): ');
  ReadLn(x);
  Write('Введите второе число (y): ');
  ReadLn(y);

  if x <> y then
  begin
    if x < y then
    begin
      minVal := x;
      maxVal := y;
    end
    else
    begin
      minVal := y;
      maxVal := x;
    end;

    minVal := minVal + 1;
    maxVal := maxVal - 1;

    WriteLn('Результат:');
    if x < y then
    begin
      WriteLn('x = ', minVal);
      WriteLn('y = ', maxVal);
    end
    else
    begin
      WriteLn('y = ', minVal);
      WriteLn('x = ', maxVal);
    end;
  end
  else
  begin
    WriteLn('Числа равны, невозможно выполнить условие.');
  end;

  ReadLn; // Для паузы перед закрытием консоли
end.