condition1_test.pl

var x,y;

begin 

  x := 1; 
  y := 1;

  if y & x then 
  begin 
    !x;
  end

end.