Цезарь

var source, result: string;
    i, k, first, last, tmp: integer;
begin
readln(source);
readln(k);
first:= ORD('A');
last:= ORD('Z');
result:= source;
for i:=1 to length(source) do
  begin
    tmp:= ORD(source[i]) - k;
    if (tmp < first) then tmp:= last - (first - tmp) + 1;
    result[i]:= CHR(tmp);
  end;
writeln(result);
end.