Pagini recente » Cod sursa (job #1648761) | Cod sursa (job #2683433) | Cod sursa (job #207050) | Cod sursa (job #542875) | Cod sursa (job #1565048)
var n,p:integer;
f:text;
y:longint;
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,'lgput.in');
reset(f);
read(f,n);
read(f,p);
close(f);
assign(f,'lgput.out');
rewrite(f);
y:=PL(n,p);
writeln(f,y mod 1999999973);
close(f);
end.