UVa OJ 458-The Decoder

 

..........唉：

{ 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.