Написать и прикрепить программу на Паскаль. С клавиауры заданы три числа X, Y, Z. Найти минимальное значение из их произведения XYZ, суммы X+Y+Z и результата деления X/Y/Z.

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.

Объяснение: