program demo;

procedure Foo;
begin end;

procedure Bar;
begin end;

var
 c: integer;

begin
  c := -8;
  repeat
    Foo;
    Bar;
    c += 1;
  until
    c = 0;
end.