А в чём суть вопроса? Сам сказал что понял?
Решение
var
x, y, z: integer;
begin
readln(x, y, z);
if (x+y+z)>(x*y*z) then write(x+y+z) else write(x*y*z);
end.
Если есть вопросы, пиши.
Держи)помоги пожалуйста мне))
Определяете процедурную переменную в стиле определения лямбда - выражения, например,
begin
<span>var dr: real->real := x->x*x;
</span><span>var func: real->real := x->sin(x)+cos(x);
var add: (real,real)->real := (x,y)->x+y;
</span><span> writeln(dr(2));
</span><span> writeln(func(1));
writeln(add(2,3));
end.
</span>
4
1.38177329067604
5