program factor; var f:array[1..1005,0..1005]of longint; ans,a,b,k,n,m,i,j:longint; begin readln(a,b,k,n,m); a:=a mod 10007; b:=b mod 10007; f[1,1]:=1; for i:=2 to k+1 do for j:=1 to i do f[i,j]:=(f[i-1,j]+f[i-1,j-1])mod 10007; ans:=f[k+1,m+1]; for i:=1 to n do ans:=(ans*a)mod 10007; for i:=1 to m do ans:=(ans*b)mod 10007; writeln(ans); end. /************************************************************** Problem: 2307 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/