[pascal] program p294; var i,j,n,x,y,xtemp,ytemp,max,now,num:longint; divisor:array[1..100000] of byte; function scan(x:longint):longint; var i,sum,limit:longint; begin i:=2; limit:=trunc(sqrt(x))+1; while x>1 do begin while frac(x/i)<0.00000001 do begin x:=x div i; inc(divisor ); end; inc(i); if i>...