for J in 1 .. 3 loop
   Put_Line ((if J = 1 then "one"
              elsif J = 2 then "two"
              else "three"));
end loop;

for J in Boolean loop
   B := F (if J then "A" else "B", if not J then "A" else "B");
end loop;