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

Var x,y,z,a:real;BeginWrite('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.