// Выбирайте, тут три цикла, while, repeat и for

//------------------------

program LoopWhile;

begin

 var (a, b) := (-10, 10);

 while a <= b do

 begin

   Println(a, Abs(a));

   a += 1

 end;

end.

//------------------------

program LoopRepeat;

begin

 var (a, b) := (-10, 10);

 repeat

   Println(a, Abs(a));

   a += 1

 until a > b;

end.

//------------------------

program LoopFor;

begin

 var (a, b) := (-10, 10);

 for var i := a to b do

   Println(i, Abs(i));

end.