RosettaCodeData/Task/Inverted-syntax/Ada/inverted-syntax.ada

Foo := 1;
loop
   exit when Foo = 10;
   Foo := Foo + 1;
end loop;