====== Ciklusok. Utótesztelő ciklus. Repeat-until/do-while ====== ===== Repeat ciklus ===== Formátum


repeat
  {ciklusmag ismétlődik,
   amíg a logikai_kifejezés HAMIS}; 
until logikai_kifejezés;

Példa


a := 2;
repeat
  writeln(a);
  a := a + 1
until a >= 6;

===== Végtelen ciklus =====


repeat
until false;


a := 2;
repeat
  writeln(a);
until a >= 6; 
{az a ciklusváltozó nem növekszik!}

===== Break =====


var
  i:integer;
begin
  i := 0;
  repeat
    i := i + 1;
    if i = 10 then break;
  until false;
end;

===== Continue =====


var
  i:integer;
begin
  i := 0;
  repeat
    i := i + 1;
    if i = 10 then continue;
  until false;
end;