なるほどなrepeat until

いそっぱさん(id:Isoparametric)のところより。Delphi版

repeat
...
    if (...) then
        break;
...
until True;

gotoっぽいことができるね。
goto厳禁ならこれでいいんじゃない。