Даны два числа А и В. Найти наибольшее из них и вывести его на экран. Составить программу для Турбо Паскаль.

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

pascal
Копировать
program FindMax;
var
  A, B: Integer;
begin
  { Ввод чисел A и B }
  Write('Введите число A: ');
  ReadLn(A);
  Write('Введите число B: ');
  ReadLn(B);
  { Сравнение чисел и вывод наибольшего }
  if A > B then
    WriteLn('Наибольшее число: ', A)
  else
    WriteLn('Наибольшее число: ', B);
end.

Пояснение:

1. В начале программы объявляются две переменные типа Integer, которые будут хранить значения чисел A и B.

2. Программа предлагает пользователю ввести два числа с помощью команды ReadLn.

3. Далее, при помощи условного оператора if, проверяется, какое из чисел больше. Если A больше B, выводится значение A, иначе — значение B.

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

Эта программа полностью решает задачу нахождения наибольшего из двух введенных чисел.