14 lines
283 B
Text
14 lines
283 B
Text
Procedure comp(A.s, B.s)
|
|
If Len(A) >= Len(B)
|
|
PrintN(A + #TAB$ + Str(Len(A)))
|
|
PrintN(B + #TAB$ + Str(Len(B)))
|
|
Else
|
|
PrintN(B + #TAB$ + Str(Len(B)))
|
|
PrintN(A + #TAB$ + Str(Len(A)))
|
|
EndIf
|
|
EndProcedure
|
|
|
|
OpenConsole()
|
|
comp("abcd", "123456789")
|
|
Input()
|
|
CloseConsole()
|