program TinhToan;
var
  numbers: array[1..10] of integer;
  i, max_number, even_sum: integer;
begin
  // Nhập vào 10 số từ bàn phím
  for i := 1 to 10 do
  begin
    write('Nhap so thu ', i, ': ');
    readln(numbers[i]);
  end;

  // Tìm số lớn nhất trong danh sách và in ra
  max_number := numbers[1];
  for i := 2 to 10 do
  begin
    if numbers[i] > max_number then
      max_number := numbers[i];
  end;
  writeln('So lon nhat trong day la: ', max_number);

  // Tính tổng các số chẵn trong danh sách và in ra
  even_sum := 0;
  for i := 1 to 10 do
  begin
    if numbers[i] mod 2 = 0 then
      even_sum := even_sum + numbers[i];
  end;
  writeln('Tong cac so chan la: ', even_sum);

  // Dừng chương trình
  readln;
end.