Program palindrome; 

Uses	wincrt;

Var 	s : string; 
	
Function epalindrome (var p: string): boolean; 

   Var 	i, meio, tam : Integer; 

   Begin 
	tam := length (p);
	meio:= tam div 2; 
	epalindrome:=true;
	i:=1; 
	while (epalindrome and (i<=meio)) do 
	begin 
		if (s[i] <> s[tam-i+1]) then 
			epalindrome:=false; 
		i:=i+1; 
	end;
   end; 

Begin
	write('Entre com uma palavra: ');
	readln(s); 
	if palindrome(s) then 
		writeln('A palavra ', s, ' é palindrome') 
	else 
		writeln('A palavra ', s, ' não é palindrome'); 
End.