Составить программу Паскаль: Вводится 2 целых числа,найти наибольшее из них

Вот пример программы на языке Паскаль, которая находит наибольшее из двух введённых целых чисел:

pascal
Копировать код
program FindMax;
var
  a, b: integer;
begin
  { Вводим два целых числа }
  writeln('Введите первое число:');
  readln(a);
  writeln('Введите второе число:');
  readln(b);
  { Находим и выводим наибольшее число }
  if a > b then
    writeln('Наибольшее число: ', a)
  else if b > a then
    writeln('Наибольшее число: ', b)
  else
    writeln('Числа равны');
end.

В этой программе:

1. Вводятся два целых числа a и b.

2. С помощью условного оператора if программа сравнивает эти числа.

3. Если a больше, выводится сообщение о том, что наибольшее число — это a.

4. Если b больше, выводится сообщение о том, что наибольшее число — это b.

5. Если оба числа равны, выводится соответствующее сообщение.

Программа будет работать корректно для любых целых чисел.