Составьте программу нахождения наименьшего из двух выражений x+y+z и x*y*2

Var x, y, z, a:real;

Begin

Write ('x = ') ; ReadLn (x) ;

Write ('y = ') ; ReadLn (y) ;

Write ('z = ') ; ReadLn (z) ;

a:=x+y+z;

x:=x*y*2;

WriteLn ('x+y+z = ', a) ;

WriteLn ('2xy = ', x) ;

if a > x then Write ('Min = ', x)

else if a < x then Write ('Min = ', a)

else Write ('Выражения равны')

End.