program z446;
uses crt;

procedure Prost(a: integer; var f: boolean);
var
  i: integer;
begin
  f := true;
  for i := 2 to round(sqrt(a)) do
    if a mod i = 0 then
    begin
      f := false;
    end;
end;

var
  n, i, k: integer;
  b1, b2: boolean;

begin
  write('Введите n=');
  readln(n);
  k := 0;
  for i := n to 2 * n - 2 do
  begin
    Prost(i, b1);
    Prost(i + 2, b2);
    if b1 and b2 then
    begin
      k := 1;
      writeln(i, '  ', i + 2);
    end;
  end;
  if k = 0 then write('Таких пар нет!');
end.