Снова у меня проблема с массивами, на этот раз вместо перечня чисел от одного до десяти выдаёт просто десятку одну и всё. Program arrays;const N = 10;var mas: array [1. . N] of integer;i: integer;beginfor i:= 1 to N domas[i]:= i;writeln(mas[i],' ');end.