Ввести 2 числа. Вычесть из большего меньшее. (на языке Паскаля)

Для того чтобы в языке Паскаля ввести два числа и вычесть из большего меньшее, можно использовать следующий код:

pascal
Копировать
program SubtractNumbers;
var
  num1, num2, result: Integer;
begin
  Write('Введите первое число: ');
  ReadLn(num1);
  
  Write('Введите второе число: ');
  ReadLn(num2);
  if num1 > num2 then
    result := num1 - num2
  else
    result := num2 - num1;
  WriteLn('Результат: ', result);
end.

В этом примере:

1. Программа запрашивает два числа у пользователя.

2. Затем, используя условие if, программа проверяет, какое из чисел больше.

3. В зависимости от того, какое число больше, из большего вычитается меньшее.

4. Результат выводится на экран.

Пример работы программы:

• Ввод: 5 и 3

• Вывод: Результат: 2

Если введены числа 3 и 5, то результат будет также 2, так как программа всегда вычитает меньшее число из большего.