program BaiToan;
const
  MAX = 100;
var
  n, i, maxVal, countEven, countDiffSign: integer;
  arr: array[1..MAX] of integer;
  hasDiffSign: boolean;

begin
  // Nhập số phần tử của dãy
  repeat
    write('Nhap so phan tu cua day (khong qua ', MAX, '): ');
    readln(n);
  until (n > 0) and (n <= MAX);

  // Nhập dãy số nguyên từ bàn phím
  writeln('Nhap cac phan tu cua day (khac 0):');
  for i := 1 to n do
  begin
    repeat
      write('Nhap phan tu thu ', i, ': ');
      readln(arr[i]);
    until arr[i] <> 0; // Đảm bảo số nhập vào khác 0
  end;

  // Tìm giá trị lớn nhất của dãy
  maxVal := arr[1];
  for i := 2 to n do
    if arr[i] > maxVal then
      maxVal := arr[i];
  writeln('+ Gia tri lon nhat la: ', maxVal);

  // In ra các số chẵn lớn hơn 0 của dãy
  countEven := 0;
  writeln('+ Cac so chan lon hon 0 la:');
  for i := 1 to n do
    if (arr[i] > 0) and (arr[i] mod 2 = 0) then
    begin
      writeln(arr[i]);
      countEven := countEven + 1;
    end;
  if countEven = 0 then
    writeln('Khong co so chan lon hon 0.');

  // Kiểm tra dãy đan dấu
  hasDiffSign := true;
  countDiffSign := 0;
  for i := 2 to n do
  begin
    if (arr[i] * arr[i - 1] > 0) then
    begin
      hasDiffSign := false;
      break;
    end;
  end;
  if hasDiffSign then
    writeln('+ Day la day dan dau')
  else
    writeln('+ Day khong phai la day dan dau');

  writeln;
end.