PersonalCorpus 版 (精华区)

158892 01:23:50 10 Mar 2002
Bozhang,HIT,P.R.China 1123 Pascal Accepted 0.02 sec 53K


var
    t,s:array[1..2001] of char;
    i,len:integer;
    f:boolean;
begin
    len:=0;
    while not (eoln(input) or eof(input)) do begin inc(len);read(s[len]);t[l
en]:=s[len]; end;
    for i:=1 to len div 2 do t[len-i+1]:=t[i];
    f:=false;
    for i:=1 to len do if t[i]<>s[i] then begin
        if t[i]<s[i] then f:=true else f:=false;
        break;
    end;
    if f then begin
        i:=(len div 2)+1;
        while t[i]='9' do begin
            t[i]:='0';
            t[len-i+1]:='0';
            dec(i);
        end;
        t[i]:=succ(t[i]);
        t[len-i+1]:=t[i];
    end;
    for i:=1 to len do write(t[i]);writeln;
end.