Program phan_tu_duong;
Uses crt;
Var
I,n:integer
Begin
Clrscr;
Write('hay nhap do dai cua day so,N=');
Readln(n);
Writeln('nhap cac phan tu cua day so:');
For i:=1 to n do
Begin
Write('a[i]=')
End;
For i: 2 to n do
Writeln(phan tu duong la=',);
Readln;
End.
