fork download

copy

var i,t,k: integer;
    s,st: string;
begin readln(s,k);
        st:=''; k:=k mod 26;
        for i:=1 to length(s) do
                if upcase(s[i]) in ['a'..'z'] then begin
                        t:=ord(s[i]) + k;
                        if ((t > 90) and (t < 97)) or (t > 122) then dec(t,26);
                        st:=st + chr(t); end
                else st:=st + t;
        write(st);
end.

Free Pascal Compiler version 3.0.4+dfsg-22 [2019/01/24] for x86_64
Copyright (c) 1993-2017 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(10,29) Error: Operator is not overloaded: "ShortString" + "SmallInt"
prog.pas(12,4) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode

Standard output is empty