вывести:
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
.....
всего 10 строчек.
ВЛОЖНЫМ ЦИКЛОМ

спасибо большое)

Пожалуйста

1. Традиционный "школьный" вариантvar  i,j:integer;begin  for i:=1 to 5 do begin    for j:=1 to 8 do Write(j,',');    Writeln(9);    for j:=9 downto 2 do Write(j,',');    Writeln(1)    endend.Результат1,2,3,4,5,6,7,8,99,8,7,6,5,4,3,2,11,2,3,4,5,6,7,8,99,8,7,6,5,4,3,2,11,2,3,4,5,6,7,8,99,8,7,6,5,4,3,2,11,2,3,4,5,6,7,8,99,8,7,6,5,4,3,2,11,2,3,4,5,6,7,8,99,8,7,6,5,4,3,2,12. Современный вариант// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!begin  Loop 5 do begin    SeqGen(9,i->i,1).Println(',');    SeqGen(9,i->9-i).Println(',')    endend.