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.
Объяснение:
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.
Объяснение: