Числа-близнецы и процедура

[mexx1337]

С помощью клавиатуры вводится натуральное число n. Выяснить,имеются ли среди чисел от 2 до n числа-близнецы ,т.е. простые числа ,разность между которыми равна 2. С помощью процедуры распознования является число простым или нет...

Я написал программу,но она работает немного некорректно...исправьте пожалуйста

program a29z1;
var n,h,z,ans,i:integer;
procedure pr(n:integer;var a:integer);
var i:integer;
begin
a:=0;
for i:=2 to (n div 2) do
if n mod i=0 then begin a:=1;
                        break;
                        end;
                        end;
begin
writeln('n=');
readln(n);
for i:=2 to n do begin
pr(i,h);
pr(i-2,z);
if (h=z) and (h=0) then begin
ans:=1;
writeln(i,' ',i-2);
end;
end;
if (ans=0) then writeln('takux 4ucel HET');

readln;
end.

[MyLastHit]

Что то странная задача... Первая пара близнецов (3,5), те если число n>=5 то числа близнецы найдутся в любом случае.
Непонятно зачем писать программу если она состоит из простого сравнения:

if n>=5 then writeln('есть близнецы') else writeln('нет');

и решается в уме даже самого тупого человека в мире.

[mexx1337]

ну задали такую задачу,именно с помощью процедуры...препод сказал)
нужно вывести эти пары чисел...
в моём варианте начинает выводить с 0 - 2 ,1 - 3 ...в чём ошибка?!

[mexx1337]

up
ну кто-нибудь поможет?

[Serge_Bliznykov]

у Вас функция (процедура) проверки числа на простоту написана с ошибками. вот и получаете такие результаты.
сделайте, хотя бы так:

procedure pr(n:integer;var a:integer);
var i:integer;
begin
if n<2 then begin
  a:=1;
  Exit;
end;
a:=0;
for i:=2 to (n div 2) do
  if n mod i=0 then 
    begin 
      a:=1;
      break;
    end;
end;

а вообще, непонятно, зачем использовать процедуру, когда можно (намного удобнее) использовать функцию:

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

var
  i, n, ans: integer;
begin
  writeln('n=');
  readln(n);
  for i := 2 to n-2 do begin
    if isPrime(i) and isPrime(i+2) then begin
      ans := 1;
      writeln(i, ' ', i + 2);
    end;
  end;
  if (ans = 0) then writeln('takux 4ucel HET');

  readln;
end.