8 lines
157 B
Text
8 lines
157 B
Text
|
Procedure IsPalindrome(StringToTest.s)
|
||
|
|
If StringToTest=ReverseString(StringToTest)
|
||
|
|
ProcedureReturn 1
|
||
|
|
Else
|
||
|
|
ProcedureReturn 0
|
||
|
|
EndIf
|
||
|
|
EndProcedure
|