var
i: integer;
a: array[1..8] of integer;
begin
for i := 1 to 8 do
a[i] := i * i;
// проверим
write(a[i], ' ');
end.
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.