program task3;
const n =50;
var
A:array[1..n] of integer;
i,num,flag:integer;
begin
  readln(num);//заданое число
  flag:=0;
for i:=1 to n do
  begin
  A[i]:=Random(20); //заполняем случайными числами
  //writeln('t ',A[i]); //вывод чисто для теста
  end;
for i:=2 to n do
  begin
    if A[i]+A[i-1] = num then //если соседние элементы равны заданному числу
    begin
    writeln(A[i-1],' ',A[i]);
    flag:=1;
    end;
  end;
if(flag = 0) then
  writeln('Таких пар чисел нет!');
end.