var

 i: integer;

 a: array[1..8] of integer;

begin

 for i := 1 to 8 do

   a[i] := i * i;

 // проверим

 for i := 1 to 8 do

   write(a[i], ' ');

end.