program switch is
	var sum,k : integer;
	var SWITCH : boolean;
begin
	SWITCH := true; sum := 0; k := 1;
	while k<10 do
	      SWITCH := not(SWITCH);
	      if SWITCH then sum := sum+k end if;
		 k := k+1
	end while;
	write sum
end