program qwerty;
var X,Y,Z:real;
begin
writeln('введите X,Y,Z');
readln(X,Y,Z);
begin
if (X=Y)and(Y=Z)and(X=Z)then
X:=3*X;
Y:=3*Y;
Z:=3*Z;
writeln('X=','Y=','Z=')
end;
begin
else
if(Y=Z) then (X=-X)and(Y=-Y)and(Z=-Z)
writeln('X=','Y=','Z=')
end
begin
else
(X:=222)and(Y:=222)and(Z:=222)
writeln('X=','Y=','Z=')
end.