Dimm()AsIntegers=Fori=Tom(i)=NextiForj=Tos=s+m(j)NextjPrintsABCD