OJ Board

Please, help me!
I got WA. What can I do???
This is my code:

const
maxn=1000000;

type int=integer;
real=extended;

var
n,i,a,b,max,kolvo:int;
cyc:array[1..maxn] of int;
_a,_b,_res:array[1..100000] of int;

function Rec(v:int64):int;
var
res:int;
begin
if (v<=maxn)and(cyc[v]>0) then
begin ...