Определить, что больше - сумма или произведение чисел - Pascal (249621)

Формулировка задачи:

Помогите, пожалуйста Даны три действительных числа a b c, что больше - их сумма или произведение. Вывести на экран число 1, если больше сумма, и число 0, если больше произведение

Решение задачи: «Определить, что больше - сумма или произведение чисел»

Листинг программы

var
  a, b, c: real;
 
begin
  readln(a, b, c);
  writeln(ord(a + b + c > a * b * c));
end.

Объяснение кода листинга программы

В начале кода объявляются три переменные типа real — a, b и c.
Затем происходит чтение трех чисел с помощью функции readln(a, b, c).
И наконец, выводится результат сравнения операций с помощью функции writeln(ord(a + b + c > a b c)).
Результат вычисления операции a + b + c сравнивается с результатом вычисления операции a * b * c.
Функция ord возвращает 1, если первое выражение больше второго, и 0 в противном случае.
Результат выводится на экран с помощью функции writeln.