为什么60？

var
 a:array[1..10000]of longint;
 i,n:longint;
 str1:string;
 begin
readln(n);
readln(str1);
for i:=1 to length(str1) do begin
a[i]:=ord(str1[i])+n;
end;
for i:=1 to length(str1) do write(chr(a[i]));
end.