Напишите программу которая заполняет массив квадратами натуральных чисел от 1 до n(паскаль)

Вопрос школьника по предмету Информатика

Напишите программу которая заполняет массив квадратами натуральных чисел от 1 до n(паскаль)

Ответ учителя по предмету Информатика

var

  i,n: integer;

  a: array of integer;

begin

  readln(n);

  setlength(a,n+1);

  for i := 1 to n  do

  begin

    a[i] := sqr(i);

    write(a[i], ‘ ‘)

  end;

end.