var
  i: integer;

begin
  var arr := ArrRandom(10, -50, 50); // Создадим массив из 10 элементов

  // Цикл for (с парметром)
  for i := Low(arr) to High(arr) do Write(arr[i]:5);WriteLn;
  for i := High(arr) downto Low(arr) do Write(arr[i]:5);WriteLn;

  // Цикл while (предусловие)
  i := Low(arr);
  while i <= High(arr) do
  begin
    Write(arr[i]:5);
    i += 1;
  end;
  WriteLn;

  i := High(arr);
  while i >= Low(arr) do
  begin
    Write(arr[i]:5);
    i -= 1;
  end;
  WriteLn;

  // Цикл repeat (постусловие)
  i := Low(arr);
  repeat
    Write(arr[i]:5);
    i += 1;
  until i = High(arr);

  i := High(arr);
  repeat
    Write(arr[i]:5);
    i -= 1;
  until i = Low(arr);
end.