Напиши алгоритм Дейкстры поиска кратчайшего расстояния в графе matrica<-matrix(rep(0,400), nrow=20,ncol=20)
for (i in 1:20) {
  for (j in 1:20) {
    if(i==j || i%%5==0 || j%%5==0){
      matrica[i,j]=1
    }
  }
}