Pagini recente » Cod sursa (job #2143037) | Cod sursa (job #1547354) | Profil Matei_Sofroni | Cod sursa (job #1722059) | Cod sursa (job #743454)
Cod sursa(job #743454)
var a,b,c:int64;
function alab(b:int64):int64;
var aux:int64;
Begin
if b=1 then alab:=a
else
if odd(b) then alab:=(a*alab(b-1))mod c
else
begin
aux:=alab(b div 2);
alab:=aux*aux mod c;
end;
END;
BEGIN
assign(input,'lgput.in');
reset(input);
readln(a,b);
c:=1999999973;
assign(output,'lgput.out');
rewrite(output);
writeln(alab(b) mod c);
end.