Ввести четыре целые числа, найти наибольшее из них. Пример 1 5 4 3 Наибольшее число 5
Напишите код в паскаль, пожалуйста

Для решения задачи на языке Pascal нужно ввести четыре целых числа, найти и вывести наибольшее из них. Пример входных данных: 5, 4, 3. Наибольшее число из этих чисел — это 5.

Вот пример кода на языке Pascal для решения этой задачи:

pascal
program FindMax;
var
  a, b, c, d, max: integer;
begin
  // Ввод четырех целых чисел
  readln(a, b, c, d);
  
  // Ищем наибольшее число
  max := a;  // предполагаем, что наибольшее первое число
  
  if b > max then
    max := b;  // если b больше, то обновляем max
  
  if c > max then
    max := c;  // если c больше, то обновляем max
  
  if d > max then
    max := d;  // если d больше, то обновляем max
  
  // Выводим наибольшее число
  writeln('Наибольшее число: ', max);
end.

Объяснение:

1. Сначала мы вводим четыре целых числа (a, b, c, d).
2. Устанавливаем, что переменная max равна первому числу (a), предполагая, что оно может быть наибольшим.
3. Последовательно проверяем, не больше ли каждое из оставшихся чисел (b, c, d) переменной max. Если да, то обновляем значение max.
4. В конце выводим результат — наибольшее из чисел.

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