program NhapDaySo;

var
  i, n, max: integer;
  a: array of integer;

begin
  write('Nhap do dai cua day so: ');
  readln(n);
  SetLength(a, n);

  for i := 0 to n - 1 do
  begin
    write('Nhap phan tu thu ', i + 1, ': ');
    readln(a[i]);
  end;

  writeln('Cac phan tu cua day so la: ');
  for i := 0 to n - 1 do
    writeln(a[i]);

  max := a[0];
  for i := 1 to n - 1 do
    if a[i] > max then
      max := a[i];

  writeln('Gia tri lon nhat trong day so la: ', max);
  readln;
end.