Leave { simple statement }
With Leave
you can exit the body of the current loop
instantly. It can only be used within a while
, repeat
or a for
loop.
Leave
is a Mac Pascal extension. Borland Pascal has
Break
instead.
program LeaveDemo; var Foo: Integer; begin while True do begin repeat WriteLn ('Enter a number less than 100:'); ReadLn (Foo); if Foo < 100 then Leave; { Exits `repeat' loop } WriteLn (Foo, ' is not exactly less than 100! Try again ...') until False; if Foo > 50 then Leave; { Exits `while' loop } WriteLn ('The number entered was not greater than 50.') end end.