Đây là một đoạn chương trình để nhập một mảng n số nguyên và in ra màn hình phần tử lớn nhất và tổng các phần tử chia hết cho 3 trong mảng:

pascal:
program TimMaxVaTong;

var
  a: array of Integer;
  n, i, max, sum: Integer;

begin
  Write('Nhap so luong phan tu cua mang: ');
  ReadLn(n);

  // Cấp phát bộ nhớ cho mảng
  SetLength(a, n);

  // Nhập giá trị từng phần tử của mảng
  for i := 0 to n-1 do 
  begin
    Write('Nhap phan tu thu ', i+1, ': ');
    ReadLn(a[i]);
  end;

  // Tìm phần tử lớn nhất trong mảng
  max := a[0];
  for i := 1 to n-1 do 
  begin
    if a[i] > max then 
      max := a[i];
  end;
  WriteLn('Phan tu lon nhat trong mang la: ', max);

  // Tính tổng các phần tử chia hết cho 3 trong mảng
  sum := 0;
  for i := 0 to n-1 do 
  begin
    if a[i] mod 3 = 0 then 
      sum := sum + a[i];
  end;
  WriteLn('Tong cac phan tu chia het cho 3 trong mang la: ', sum);

  ReadLn;
end.

Chương trình này sử dụng một mảng a để lưu trữ n số nguyên được nhập từ bàn phím. Sau đó, chương trình tìm phần tử lớn nhất của mảng và tính tổng các phần tử chia hết cho 3. Cuối cùng, chương trình in ra màn hình hai giá trị này.