Pascal. Задача 8-13

Вывести всех "близнецов" (так называются простые числа, разность между которыми равна двум) из диапазона 2..N, где число N вводит пользователь.

Решение

var
  i, j, N, pred : integer;
  prime : boolean;
begin
  Write('Введите число: ');
  Readln(N);
  pred := 2;
  for i := 3 to N do begin
    prime := true;
    for j := 2 to round(sqrt(i)) + 1 do
      if i mod j = 0 then begin
        prime := false;
        break;
      end;
    if prime then begin
      if (i - pred) = 2 then
        Writeln(pred, ' ', i);
      pred := i;
    end
  end;
end.

◄▲►