void umple(short int x,short int y,short int k)
{
    short int p;
    VIZ[x][y][k]=1;
    for(p=0;p<=3;p++)
        if(A[x+dl[p]][y+dc[p]]==k && VIZ[x+dl[p]][y+dc[p]][k]==0)
            umple(x+dl[p],y+dc[p],k);
}