[GoryachevEugeneS]

И еще:
const d=4;
mas3:array[1..d,1..d] of integer;