Пример решения на Pascal:

program MaxSumProduct;
var
x, y, z, sum, product, max: integer;
begin
writeln('Enter three numbers:');
readln(x, y, z);
sum := x + y + z;
product := x * y * z;
if (sum > product) then
max := sum
else
max := product;
writeln('Max value:', max);
end.

Данная программа сначала считывает три числа с клавиатуры, затем вычисляет сумму и произведение этих чисел. Далее программа сравнивает сумму и произведение и находит максимальное значение, которое выводит на экран.