const nn=10;var i,j,n:integer;begin Write('Введите число строк в массиве (2..9): '); Read(n); if (n<2) or (n>9) then writeln('Неверное значение') else for i:=1 to n do begin if (i mod 2)<>0 then for j:=1 to n do Write(j) else for j:=n downto 1 do Write(j); Writeln endend.Тестовое решение:Введите число строк в массиве (2..9): 51234554321123455432112345