..........唉: { Author:wzx961008 Problem:UVa 458-The Decoder Verdict:Accepted Language:PASCAL Run Time:0.032s Submission Date:2011-01-13 16:23:17 } var i:longint; s:string; begin while not eof do begin readln(s); for i:=1 to length(s) do s[i]:=chr(ord(s[i])-7); writeln(s); end; end.