Define operate(arg)=Func
 If arg=1
  Return "/"
 If arg=2
  Return "*"
 If arg=3
  Return "-"
 If arg=4
  Return "+"
 If inString(arg,"/")0
  Return 1
 If inString(arg,"*")0
  Return 2
 If inString(arg,"-")0
  Return 3
 If inString(arg,"+")0
  Return 4
 Return 0
EndFunc
Loop
    SortA list
    ClrIO
    Output 10,0,"Nombre recherché:"&string(tofind)
    Output 0,0,string(list[1])&" "&string(list[2])&" "&string(list[3])&"  "&string(list[4])&" "&string(list[5])
    InputStr "",t
    operate(t)t2
    inString(t,operate(t2))tt
    expr(left(t,tt-1))t1
    expr(right(t,dim(t)-tt))t3
    Try
          For i,1,6
              If list[i]=t1 Then
                0->list[i]
                Exit
            EndIf
        EndFor
        For i,1,6
            If list[i]=t3 Then
                0->list[i]
                Exit
            EndIf
        EndFor
        If t1=t3
            Stop
    Else
        Cycle
    EndTry
    SortD list
    For i,1,5
        If list[i]=0
            Exit
    EndFor
    expr(string(t1)&operate(t2)&string(t3))list[i]
    If list[1]=tofind or list[2]=tofind or list[3]=tofind or list[4]=tofind or list[5]=tofind
        Exit
EndLoop