1298.pas

这些是我到目前在PKU上做出的题目

var s:string;
    i:longint;
begin
readln(s);
while (s<>'ENDOFINPUT') do
begin
 readln(s);
 for i:=1 to length(s) do
  if (s[i]>='A') and (s[i]<='Z') then
  begin
   s[i]:=chr(ord(s[i])-5);
   if s[i]<'A' then s[i]:=chr(ord(s[i])+26);
   end;
 writeln(s);
 readln(s);readln(s);
 end;
end.