给我加了这么多分也不好意思不写~~~
写了个笨的,没办法就这点水平~~~~
就看在楼主乱给我加分的份上了~~~~呵呵


program oh~~yeah~;
const a=95859;
var
    b,d:longint;
    i,j:integer;
    e,c:boolean;
    f:string;
    s:real;
begin
    b:=a;
    c:=false;
    while not c do
         begin
           b:=b+1;
           str(b,f);
           d:=length(f);
           j:=d div 2;
           c:=true;
           for i:=1 to j do
               if f[i]<>f[d-i+1] then c:=false;
         end;
      s:=(b-a)/2;
      write('s=',s,'km/h',' ','b=',b);
      readln;
      readln;
end.

要我写,偶也就这点水平了,顶上`

你只有'顶上'~这点水平???

呵呵~```拒可靠消息报道在发贴前偶没办法顶下,所以只好顶上了```