Снова у меня проблема с массивами, на этот раз вместо перечня чисел от одного до десяти выдаёт просто десятку одну и всё. Program arrays;
const N = 10;

var mas: array [1..N] of integer;
i: integer;
begin
for i:= 1 to N do
mas[i]:= i;
writeln(mas[i],' ');
end.