Введите с клавиатуры три числа x, y, z. если числа равны, то увеличте их в три раза и выведите результат на экран. Если равны только два последние числа то замените все числа на противоположные и выведите результаты.

иначе все числа сделайте равными 222 и выведите результат

Var

x, y, z: integer;

begin

read (x, y, z) ;

if (x = y) and (y = z) and (x = z) then

begin

x : = 3 * x;

y : = 3 * y;

z : = 3 * z;

write (x, y, z) ;

end

else

if (y = z) then

begin

x : = - x;

y : = - y;

z : = - z;

write (x, y, z) ;

end

else

begin

x : = 222;

y : = 222;

z : = 222;

write (x, y, z) ;

end;

end.