Question

Написать программу Паскаль , не используя массивы
Заданы три числа X, Y, Z. Найти min(XYZ, X+Y+Z).
​

Answer 1

===== PascalABC.NET =====

begin

 var (x, y, z) := ReadReal3('Введите 3 числа:');

 Println(Min(x * y * z, x + y +z))

end.