Составьте программу выводящую на экран все числа от - 10 до 10

Можно еще рекурсией

procedure Rec(a, b: integer); procedure Rec_(a: integer); begin if a > b then exit else begin Println(a, Abs(a)); Rec_(a + 1); end end;begin Rec_(a)end;begin var (a, b) := (-10, 10); Rec(a, b)end.

можно еще циклом foreach

begin foreach var x in Range(-10, 10) do Println(x, Abs(x))end.

foreach самый короткий, меньше всего писать =)

// Выбирайте, тут три цикла, 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.