помогите написать программу с процедурами Опции

[aigulia]

Два простых числа называются «близнецами», если они отличаются друг от друга на 2 (таковы, например, числа 41 и 43). Напечатать все пары близнецов из отрезка [n,2n], где n – заданное целое число, большее 2.
Спасибо, заранее!!
Turbo Pascal

[Freedom]

 var i,a,n,j:longint;
    prostoe:integer;
begin
 writeln('BBEDUTE N');
 readln(n);
 For i:=n to 2*n do begin
  For j:=2 to 30 do If (i mod j=0) or ((i+2) mod j=0) then inc(Prostoe);
  If i<=30 then If prostoe=1 then writeln(i,' ',i+2);
  If i>30 then If prostoe=0 then writeln(i,' ',i+2);
  prostoe:=0;
  end;
 readln;
 end.

Вот как то так наверное. Может быть можно попроще какнибудь