中止法

 

1049【入门】判断是否构成回文

 

var
    s:string;
    le,i:longint;
begin
    readln(s);
    le:=length(s)-1;
    for i:=1 to le div 2 do
        if s[i]<>s[le+1-i] then
        begin
            writeln('FALSE');
            halt;
        end;
    writeln('TRUE');
end.