Dưới đây là một ví dụ về cách viết chương trình sử dụng ngôn ngữ Pascal để nhập vào 2 mảng số nguyên A và B, kiểm tra và in ra các phần tử là giao của 2 tập hợp A và B:

```pascal
program GiaoCuaHaiTapHop;

const
MAX_SIZE = 100;

type
IntegerArray = array[1..MAX_SIZE] of Integer;

var
A, B: IntegerArray;
sizeA, sizeB: Integer;
i, j: Integer;
giao: IntegerArray;
sizeGiao: Integer;

procedure NhapMang(var arr: IntegerArray; var size: Integer);
var
i: Integer;
begin
write('Nhap so phan tu cua mang: ');
readln(size);

writeln('Nhap cac phan tu cua mang:');
for i := 1 to size do
begin
readln(arr[i]);
end;
end;

function KiemTraPhanTu(arr: IntegerArray; size: Integer; x: Integer): Boolean;
var
i: Integer;
begin
for i := 1 to size do
begin
if arr[i] = x then
begin
KiemTraPhanTu := True;
exit;
end;
end;

KiemTraPhanTu := False;
end;

procedure InMang(arr: IntegerArray; size: Integer);
var
i: Integer;
begin
for i := 1 to size do
begin
write(arr[i], ' ');
end;
writeln;
end;

begin
// Nhập mảng A
writeln('Nhap mang A:');
NhapMang(A, sizeA);

// Nhập mảng B
writeln('Nhap mang B:');
NhapMang(B, sizeB);

// Tìm các phần tử là giao của 2 tập hợp A và B
sizeGiao := 0;
for i := 1 to sizeA do
begin
if KiemTraPhanTu(B, sizeB, A[i]) then
begin
sizeGiao := sizeGiao + 1;
giao[sizeGiao] := A[i];
end;
end;

// In ra các phần tử là giao của 2 tập hợp A và B
writeln('Cac phan tu la giao cua hai tap hop A va B:');
InMang(giao, sizeGiao);

readln;
end.
```

Lưu ý: Đoạn mã trên chỉ là một ví dụ cơ bản để minh họa cách sử dụng ngôn ngữ Pascal để giải quyết bài toán. Bạn có thể tùy chỉnh và cải tiến mã để phù hợp với yêu cầu cụ thể của bạn.