Combo fail: floating-point + division by zero
var y,n,m,c,e,f:int64;x,p:integer;
begin
read(n,m,y);
for x:=0 to m-1 do
begin
   f:=trunc(exp(ln(x)*n));
   if f mod m = y then inc(p);
end;
If p=0 then write ('-1');
for x:=0 to m-1 do
begin
   f:=round(exp(ln(x)*n));
   if f mod m = y then write (x,' ');
end;
end.
WHY????