sharaga

program hom;

const
    n = 10;

var
  A: array[1..n] of real;
  i:integer;

begin
  for i:= 1 to n do
    A[i]:= Power(i,2);
  for i:= 1 to n do
    Write(A[i] + ' ');
end.