Var a:array[1..n,1..n