OJ Board

here is my code and I'm getting wrong answer> why?
*************************************************************
program dollars;
const max=6000;
a:array[1..11] of integer=(2000,1000,400,200,100,40,20,10,4,2,1);
type m1=array[0..max] of int64;
var truc:m1;

procedure solve;
var j,t:integer;
u:real ...