uses crt;
var s: string;
function dx(s: string): boolean;
var s2: string;
    i: integer;
begin
    for i:=1 to length(s) do s2:=s[i]+s2;
    if s2=s then dx:=true
    else dx:=false;
end;
begin
clrscr;
    readln(s);
    if (dx(s)) then write(s,' la xau doi xung') else write(s,' khong la xau doi xung');
    readln
end.

Đệ quy.

uses crt;
var s: string;
    index, limit: longint;

function palindrome(s: string): boolean;
begin
    inc(index);
    
    if index <= limit then
        begin
            if s[index] <> s[length(s) - index + 1] then exit(false);
            exit(palindrome(s));
        end;
    
    exit(true);
end;

begin
clrscr;
    readln(s);
    
    index:=0;
    limit:=trunc(length(s) / 2);
    
    writeln(palindrome(s));
readln;
end.