x=8

y=7

say=2

ebob=1

while(say<x){

  kalan1=x %% say

  if(kalan1==0){

    x<-x/say

    basari1=1 { else{

      basari1=0 }

      kalan2=y%%say

      if (kalan2==0) {

        y<-y/say

        basari2=0 }

      

      basari=basari1+basari2

      if (basari==0){

        say=say+1

      } else if (basari==2) {

        ebob=ebob*say

      }

      

    }

  }

}

if (ebob=1) {

  print("aralarinda asal")

}