Var
 a:Array[1..9] of Byte;
 i:Byte;
Begin
 For i:=1 to 9 do a[i]:=i*i;
 For i:=1 to 9 do Writeln('a[',i,']= ',a[i]:2);
 Readln
End.