bug0162.pp 88 B

12345678910
  1. var
  2. i : longint;
  3. begin
  4. i:=1;
  5. repeat
  6. continue;
  7. until i=1;
  8. end.