Var
a:array[1..100] of integer;
i,n:integer;
Begin
readln(n);
For i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
For i:=1 to n do write(a[i], ' ');
readln
End.
Var
a:array[1..100] of integer;
i,n:integer;
Begin
readln(n);
For i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
For i:=1 to n do write(a[i], ' ');
readln
End.