Uses crt;
Var i,n: integer;a: array[1..200] of longint;
BeginClrscr;
Write('Moi ban nhap n= '); readln(n);
Writeln(' Moi ban nhap mang: ');
For i:= 1 to n do
Begin
Write(' Nhap a[',i,']= '); readln(a[i])End;
Writeln(' Phan tu dau tien cua mang la: ',a[1]);
Writeln(' Phan tu cuoi cung cua mang la: ',a[n]);Readln;
End.