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

Вопрос школьника по предмету Информатика

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