start_section :
	var : integer;
	j   : integer :=0;               
end section;


priority_section :
	put(j);
	if ( j mod 2 ) = 0
		then var:=10;
		else var:=20;
	end if;
	j:=j+1;
     put(var);
end section;
          
   
election_section :
        return min_to_index(tasks.priority);
end section;