SuperStrict
Local ok:String

Local Number1:Int
Local Number2:Int


For Number1 = 11 To 99
   For Number2 = 11 To 99
      If GetOne(Number1) = 0 Then
         Number1:+1
      ElseIf GetOne(Number2) = 0 Then
         Number2:+1
      EndIf
   
      Local ergNew:Int = ComputeNew(Number1,Number2)
      Local ergNormal:Int = ComputeNormal(Number1,Number2)
      
      If ergNew = ergNormal Then
         ok = "True"
      Else
         ok = "False"
      EndIf
   
      Print String(Number1)+"*"+String(Number2)+" = "+String(ergNew) +" = "+ String(ergNormal)+"   :"+Ok
   Next
Next

Function ComputeNormal:Int(z1:Int,z2:Int)
Return z1*z2
End Function

Function ComputeNew:Int(z1:Int,z2:Int)

Local zT1:Int = getTen(z1)
Local zT2:Int = getTen(z2)

Local zO1:Int = getOne(z1)

If zT1=zT2 Then
   Local zO2:Int = getOne(z2)
   Return Int(zT1 * (z2+zO1) + zO1 * zO2)
EndIf
If zT1<zT2 Then
   Return Int(zT1 * (z2+zO1) + zO1 * (z2-zT1))
EndIf
If zT1>zT2 Then
   Local zO2:Int = getOne(z2)
   Return Int((z1+zO2) * zT2 + (z1-zT2) * zO2)
EndIf
End Function


Function GetTen:Int(z:Int)
Local zS:String = String(z)
Return Int(Left(zS,1) + "0")
End Function

Function GetOne:Int(z:Int)
Local zS:String = String(z)
Return Int(Right(zS,1))
End Function