Cycle { simple statement }
Cycle goes on with loop iteration by jumping to the end of
the current loop body. Note: Cycle can only stand within a
while, repeat or a for loop.
Cycle is a Mac Pascal extension. Borland Pascal has
Continue instead.
program CycleDemo;
var
Foo, Bar: Integer;
begin
WriteLn ('Enter three numbers:');
for Bar := 1 to 3 do
begin
ReadLn (Foo);
if Foo < 5 then
Cycle;
WriteLn ('Your number was greater than 5.')
end
end.