Cod sursă (job #178868)

var f,g:text;
n,k,t:integer;
{function PL(n,x:integer):longint;
var p:longint;
begin
p:=1;
while n>0 do begin
if n mod 2 =1 then begin
p:=p*x;
dec(n);
end;
x:=x*x;
n:=n div 2;
end;
PL:=p;
end;}
function PL(x,n:integer):longint;
  var p:longint;
  begin
  p:=1;
  while n>0 do begin
    if n mod 2 =1 then begin
      p:=p*x;
      dec(n);
    end;
    x:=x*x;
    n:=n div 2;
  end;
  PL:=p;
  end;
begin
assign(f,'2sah.in');
assign(g,'2sah.out');
reset(f);
rewrite(g);
read(f,t);
readln(f,n,k);
close(f);
if t=1 then
write(g,PL(3,k-1)mod 100003)
else begin
if k=n then
write(g,'1')
else
if k=n-1 then
write (g,'2');
end;
close(g);
end.