begin
var a := new integer[9];
foreach var i in a.Indices do begin
a[i] := sqr(i)*i; Write('a[',i,'] = ',a[i],', ')
end;
end.
Объяснение:
