program Kriptograf;
 function DeShifr (DeKod, K:string):string; 
    var i,t:integer; 
    begin 
        for i:=1 to length(DeKod) do begin 
            t:=(Ord(DeKod[i])-(ord(K[(pred(i) mod length(K))+1])-ord('0')));
            if t<0 then 
                Inc(t,256); 
            DeKod[i]:=Chr(t); 
        end; 
        DeShifr:=DeKod; 
    end;
 var a,k,s:string;
 Begin 
    writeln('vvedite zashifrovannui text'); 
    readln(a); 
    writeln('vvedite klu4'); 
    readln(k); 
    s:= DeShifr('ож фпёкцвъпм чсхеиог лхрхоаиъмцё цгфптя зёзутосштс' ,'1974' );
    writeln('s= ', DeShifr (a,k)); 
    readln; 
End.

cHJvZ3JhbSBLcmlwdG9ncmFmOwogZnVuY3Rpb24gRGVTaGlmciAoRGVLb2QsIEs6c3RyaW5nKTpzdHJpbmc7IAogICAgdmFyIGksdDppbnRlZ2VyOyAKICAgIGJlZ2luIAogICAgICAgIGZvciBpOj0xIHRvIGxlbmd0aChEZUtvZCkgZG8gYmVnaW4gCiAgICAgICAgICAgIHQ6PShPcmQoRGVLb2RbaV0pLShvcmQoS1socHJlZChpKSBtb2QgbGVuZ3RoKEspKSsxXSktb3JkKCcwJykpKTsKICAgICAgICAgICAgaWYgdDwwIHRoZW4gCiAgICAgICAgICAgICAgICBJbmModCwyNTYpOyAKICAgICAgICAgICAgRGVLb2RbaV06PUNocih0KTsgCiAgICAgICAgZW5kOyAKICAgICAgICBEZVNoaWZyOj1EZUtvZDsgCiAgICBlbmQ7CiB2YXIgYSxrLHM6c3RyaW5nOwogQmVnaW4gCiAgICB3cml0ZWxuKCd2dmVkaXRlIHphc2hpZnJvdmFubnVpIHRleHQnKTsgCiAgICByZWFkbG4oYSk7IAogICAgd3JpdGVsbigndnZlZGl0ZSBrbHU0Jyk7IAogICAgcmVhZGxuKGspOyAKICAgIHM6PSBEZVNoaWZyKCfQvtC2INGE0L/RkdC60YbQstGK0L/QvCDRh9GB0YXQtdC40L7QsyDQu9GF0YDRhdC+0LDQuNGK0LzRhtGRINGG0LPRhNC/0YLRjyDQt9GR0LfRg9GC0L7RgdGI0YLRgScgLCcxOTc0JyApOwogICAgd3JpdGVsbigncz0gJywgRGVTaGlmciAoYSxrKSk7IAogICAgcmVhZGxuOyAKRW5kLg==