var i,j: integer;