3 lines
129 B
Text
3 lines
129 B
Text
procedure main(arglist)
|
|
every writes(s := !arglist) do write( if palindrome(s) then " is " else " is not", " a palindrome.")
|
|
end
|