program TimPhanTuLonNhat;
var
  N, i, max: integer;
  arr: array of integer;
begin
  write('Nhap so phan tu cua day: ');
  readln(N);
  SetLength(arr, N);
  for i := 0 to N-1 do begin
    write('Nhap phan tu thu ', i+1, ': ');
    readln(arr[i]);
  end;
  max := arr[0];
  for i := 1 to N-1 do
    if arr[i] > max then
      max := arr[i];
  writeln('Phan tu lon nhat cua day la: ', max);
end.