почему не правильно?

var
x,y,z:real;
begin
  readln(X,Y,Z);
  if((x=y) and (x=z) and (y=z) ) then
   begin
    x:=x*3;
    y:=y*3;
    z:=z*3;
    write('X: ',x,' Y: ',y,' Z: ',z);
   end else
   if (y=z) then
    begin
      x:=x*(-1);
      y:=y*(-1);
      z:=z*(-1);
      write('X: ',x,' Y: ',y,' Z: ',z);
    end else
    begin
      x:=222;
      y:=222;
      z:=222;
      write('X: ',x,' Y: ',y,' Z: ',z);
    end;
   readln
end.