Ветвления (Pascal)

[Evgen90]

Добрый день ! Уважаемые программисты помогите пожалуйста решить задачу :

Если произведение различных чисел x,y,z больше 20, то заменить меньшее из x,z разностью двух других, в противном случае увеличить меньшее из y,z на два.

Заранее очень Благодарен !

[unbanned]

program z_1;

var
  x, y, z: integer;

begin
  write('введите Х, Y, Z: ');
  readln(x, y, z);
  if (x * y * z > 20) and (x > z) then z := x - y;
  if (x * y * z > 20) and (x < z) then x := y - z;
  if (x * y * z < 20) and (y > z) then z := z + 2;
  if (x * y * z < 20) and (y < z) then y := y + 2;
  writeln('X=', x, ' Y=', y, ' Z=', z);
end.

можно так... не совсем рационально, зато просто и понятно

или так:

program z_1;

var
  x, y, z: integer;

begin
  write('введите Х, Y, Z: ');
  readln(x, y, z);
  if (x * y * z > 20) then
    if (x > z) then z := x - y
    else x := y - z
  else if (y > z) then z := z + 2
        else y := y + 2;
  writeln('X=', x, ' Y=', y, ' Z=', z);
end.

[Evgen90]

Спасибо большое )

[Serge_Bliznykov]

в первом варианте решения есть досадный прокол...

Если произведение ... больше 20, то ... , в противном случае ...

если произведение будет равно 20 - то вообще никаких действий не будет.
надо добавить равно (меньше или равно 20) :

  if (x * y * z <= 20) and (y > z) then z := z + 2;
  if (x * y * z <= 20) and (y < z) then y := y + 2;