Даны два числа. Найти меньшее из них. (написать программу на Паскале)

Ниже самый простой вариант на Паскале: читаем два числа, сравниваем и выводим меньшее (обрабатываем случай равенства).

Вариант для вещественных чисел

pascal
Копировать код
program MinOfTwo;
var
  a, b: Real;
begin
  { Введите два числа через пробел, затем нажмите Enter, например: 7.5 3 }
  ReadLn(a, b);
  if a < b then
    WriteLn('Меньшее число: ', a)
  else if b < a then
    WriteLn('Меньшее число: ', b)
  else
    WriteLn('Числа равны: ', a);
end.

Вариант для целых чисел

pascal
Копировать код
program MinOfTwoInt;
var
  a, b: Integer;
begin
  { Введите два целых числа через пробел, например: 10 42 }
  ReadLn(a, b);
  if a < b then
    WriteLn('Меньшее число: ', a)
  else if b < a then
    WriteLn('Меньшее число: ', b)
  else
    WriteLn('Числа равны: ', a);
end.

Короткий вариант с промежуточной переменной

pascal
Копировать код
program MinWithTemp;
var
  a, b, mn: Real;
begin
  ReadLn(a, b);
  mn := a;
  if b < mn then
    mn := b;
  WriteLn('Меньшее число: ', mn);
end.

Как это работает: оператор if ... then ... else сравнивает значения.

• Если a < b, выводим a.

• Если b < a, выводим b.

• Иначе числа равны — можно вывести любое из них или отдельное сообщение о равенстве.