class tmp
     begin
	   var x : int;
	end;

     function word() : int
	  var c : tmp;
       begin
	     c.x = random(100);

	   if ( c.x > 50 ) then c.x = 0
	 else c.x = 1;

       {return (x)}
end;