program puiss;

{uses crt;}

function puiss_naive_rec(x : integer;n:integer):integer;
begin
   {...}
end;



function puiss_naive_iter(x : integer;n:integer):integer;
var k,tmp : integer;
begin
   {...}
end;


function pair(n	: integer):boolean;
begin
   if (n mod 2=0) then pair:=true else pair:=false
end;


function puiss_dicho_rec(x : integer;n:integer):integer;
begin
   {...}
end;


function puiss_dicho_iter(x : integer;n:integer):integer;
var k,puiss,res : integer;
begin
   {...}
end;

BEGIN
   readln;
   writeln(pair(7));
   writeln(puiss_naive_rec(2,7));
   readln;
END.