Составьте программу нахождения наименьшего из двух выражений 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.