Dưới đây là một chương trình Pascal sử dụng một chương trình con để in ra tất cả các số nguyên tố có hai chữ số chẵn:

```pascal
program PrimeNumbers;

procedure PrintPrimeNumbers;
var
i, j: integer;
isPrime: boolean;
begin
writeln('Prime numbers with even digits:');
for i := 10 to 99 do
begin
isPrime := true;
for j := 2 to trunc(sqrt(i)) do
begin
if i mod j = 0 then
begin
isPrime := false;
break;
end;
end;
if isPrime then
writeln(i);
end;
end;

begin
PrintPrimeNumbers;
end.
```

Chương trình trên sử dụng một chương trình con `PrintPrimeNumbers` để kiểm tra và in ra tất cả các số nguyên tố có hai chữ số chẵn. Chương trình con này sử dụng hai vòng lặp `for` để duyệt qua tất cả các số từ 10 đến 99. Trong mỗi vòng lặp, chương trình con kiểm tra xem số đó có phải là số nguyên tố hay không bằng cách chia lần lượt từ 2 đến căn bậc hai của số đó. Nếu số đó không chia hết cho bất kỳ số nào từ 2 đến căn bậc hai của nó, thì số đó được coi là số nguyên tố và được in ra.