program TimPhanTuLonNhat;
var
  n, i: integer;
  mang: array of integer;
  max: integer;
begin
  write('Nhap so phan tu cua mang: ');
  readln(n);
  
  // Cap phat bo nho cho mang
  SetLength(mang, n);

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

  // Tim phan tu lon nhat cua mang
  max := mang[0];
  for i := 1 to n - 1 do
  begin
    if mang[i] > max then
      max := mang[i];