fork download
copy 
  1.  
  2.  
  3. program ideone;
  4.  
  5. 	function isPalindrome(const s: String): Boolean;
  6. 	var l: Integer;
  7. 	begin
  8. 		l := length(s);
  9. 		if (l = 1) or (l = 0) then 
  10. 			Exit(True)
  11. 		else
  12. 		begin
  13.  
  14. 			if s[1] = s[l] then
  15. 			begin
  16. 				Exit(isPalindrome(Copy(s, 2, l - 2)));
  17. 			end
  18. 			else 
  19. 				Exit(False);
  20. 		end;
  21. 	end;
  22.  
  23. begin
  24.  
  25. 	writeln(isPalindrome(''));
  26. 	writeln(isPalindrome('a'));
  27. 	writeln(isPalindrome('aa'));
  28. 	writeln(isPalindrome('ab'));
  29. 	writeln(isPalindrome('kajak'));
  30. 	writeln(isPalindrome('niekajak'));
  31.  
  32. end.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
TRUE
TRUE
TRUE
FALSE
TRUE
FALSE
https://ideone.com/N1Uu8I
language:
Pascal (fpc 3.0.4)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!