Даны действительные числа x, y, z. Вычислить max(x, y, z) *min(x, y, z). + нужно еще сделать блок схему алгоритма.

буду благодарен.​

var

       x, y, z, max, min: Double;

begin

       Read (x, y, z);

       if x > y then

               max := x

       else

               max := y;

       if z > max then

               max := z;

       if x < y then

               min := x

       else

               min := y;

       if z < min then

               min := z;

       Write (max * min)

end.