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