RosettaCodeData/Task/Test-a-function/Delphi/test-a-function-2.pas

4 lines
253 B
ObjectPascal

Check(IsPalindrome('salàlas'), 'salàlas is a valid palindrome');
Check(IsPalindrome('Ingirumimusnocteetconsumimurigni'), 'Ingirumimusnocteetconsumimurigni is a valid palindrome');
Check(not IsPalindrome('123'), '123 is not a valid palindrome');