Процедуры

[Devil_____]

нужно решение программы, решением на уровне школьной программы... и если можно с объяснением.. алгоритма действий...
Программа. Два простых числа называются “близнецами”, если они отличаются друг то друга на 2 (таковы, например, числа 41 и 43). Напечатать все пары “близнецов” из отрезка [n, 2n], где n - заданное целое число, большее 2.

[Niro]

Название темы "процедуры", а вот нужно ли решение оформить в виде процедуры? Ладно предположим что да, тогда

procedure poisk (n: integer; var rez: integer);
   begin
      rez:=n div 2;
   end;