Ответ:

program xyz;

var x,y,z,a,b,c,min:real;

begin

read (x,y,z);

a:=x+y+z;

b:=x*y*z;

c:=x/y/z;

min:=a;

if (b<min) and (b<c) then  

 min:=b else  if c<min then

 min:=c;

writeln ('минимальное значение равно ',min);

end.

Объяснение: