program OutputNumbers;
 
var
  numbers: array[1..8] of Integer;
  i: Integer;
 
begin
  // Ввод 8 целых чисел с клавиатуры
  for i := 1 to 8 do
  begin
    Write('Введите целое число: ');
    Readln(numbers[i]);
  end;
 
  // Вывод в строку
  Write('Вывод в строку: ');
  for i := 1 to 8 do
    Write(numbers[i], ' ');
  Writeln;
 
  // Вывод в столбец
  Writeln('Вывод в столбец:');
  for i := 1 to 8 do
    Writeln(numbers[i]);
 
  // Вывод в две строки через запятую
  Writeln('Вывод в две строки через запятую:');
  for i := 1 to 4 do
    Write(numbers[i], ', ');
  Writeln;
  for i := 5 to 8 do
    Write(numbers[i], ', ');
end.
 
 

cHJvZ3JhbSBPdXRwdXROdW1iZXJzOwoKdmFyCiAgbnVtYmVyczogYXJyYXlbMS4uOF0gb2YgSW50ZWdlcjsKICBpOiBJbnRlZ2VyOwoKYmVnaW4KICAvLyDQktCy0L7QtCA4INGG0LXQu9GL0YUg0YfQuNGB0LXQuyDRgSDQutC70LDQstC40LDRgtGD0YDRiwogIGZvciBpIDo9IDEgdG8gOCBkbwogIGJlZ2luCiAgICBXcml0ZSgn0JLQstC10LTQuNGC0LUg0YbQtdC70L7QtSDRh9C40YHQu9C+OiAnKTsKICAgIFJlYWRsbihudW1iZXJzW2ldKTsKICBlbmQ7CgogIC8vINCS0YvQstC+0LQg0LIg0YHRgtGA0L7QutGDCiAgV3JpdGUoJ9CS0YvQstC+0LQg0LIg0YHRgtGA0L7QutGDOiAnKTsKICBmb3IgaSA6PSAxIHRvIDggZG8KICAgIFdyaXRlKG51bWJlcnNbaV0sICcgJyk7CiAgV3JpdGVsbjsKCiAgLy8g0JLRi9Cy0L7QtCDQsiDRgdGC0L7Qu9Cx0LXRhgogIFdyaXRlbG4oJ9CS0YvQstC+0LQg0LIg0YHRgtC+0LvQsdC10YY6Jyk7CiAgZm9yIGkgOj0gMSB0byA4IGRvCiAgICBXcml0ZWxuKG51bWJlcnNbaV0pOwoKICAvLyDQktGL0LLQvtC0INCyINC00LLQtSDRgdGC0YDQvtC60Lgg0YfQtdGA0LXQtyDQt9Cw0L/Rj9GC0YPRjgogIFdyaXRlbG4oJ9CS0YvQstC+0LQg0LIg0LTQstC1INGB0YLRgNC+0LrQuCDRh9C10YDQtdC3INC30LDQv9GP0YLRg9GOOicpOwogIGZvciBpIDo9IDEgdG8gNCBkbwogICAgV3JpdGUobnVtYmVyc1tpXSwgJywgJyk7CiAgV3JpdGVsbjsKICBmb3IgaSA6PSA1IHRvIDggZG8KICAgIFdyaXRlKG51bWJlcnNbaV0sICcsICcpOwplbmQuCgo=