[lmikle]

пишем проверку на то, что числа есть близнецы.
Далее эту проверку запускаем в цикле.

Что-то типа:

Код:

function IsNumbersIsSiblings(A, B : Integer) : Boolean;
begin
  // тут сам реализуешь
end;

var
  I, J : Integer;
begin
  For I := 2 To 999 Do
    For J := I + 1 To 1000 Do
       If IsNumbersIsSiblings(I,J) Then
          // здесь надо куда-то вывести, например, на консоль:
          WriteLn(I,' и ',J);
end;