Массив Pascal

[Денис999]

3. Решения задач получить в виде массива.
Заданное натуральное число n. Получить последовательность, в которой, при i = 1, 2, ..., n, значение равно бы i.

[RUSt88]

program p;

const 
  n = 10;

var
  a: array[1..n] of integer;
  i: integer;
  
begin
  writeln('---array---');
  for i := 1 to n do begin
    a[i] := i;
    write(a[i], #32);
  end;
end;