Напишите программу которая заполняет массив квадратами натуральных чисел от 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.