program coder;
{var lib:array[1..242]of string;
libbytes:array[1..242]of string;
libnames:array[1..242]of string;
ls:array[1..11]of string;
lss:array[1..2]of string;}
begin
var kj:array [,] of integer;
var ki:array [,] of integer;
var h := new System.IO.StreamReader('input.txt', System.Text.Encoding.Default);
var text,liba:string;
var n:integer;
var sc:=0;
text:=h.ReadLine;
n:=length(text);
h.Close;
kj := new integer[n,3];
ki := new integer[n,3];
for var i:=0 to n-1 do begin
for var j:=0 to 2 do begin
sc:=sc+1;
kj[i,j]:=random(7)+1;
for var u:=1 to 100 do begin
for var m:=0 to 2 do begin
if j<>m then begin
if kj[i,j]=kj[i,m] then kj[i,j]:=random(7)+1;
if kj[i,m]=1 then begin
if kj[i,j]=2 then kj[i,j]:=random(7)+1;
end;
if kj[i,m]=7 then begin
if kj[i,j]=6 then kj[i,j]:=random(7)+1;
end;
if kj[i,m]-1>0 then begin
if kj[i,m]+1<7 then begin
if kj[i,j]=(kj[i,m]-1) then kj[i,j]:=random(7)+1;
if kj[i,j]=(kj[i,m]+1) then kj[i,j]:=random(7)+1;
end;
end;
end;
end;
end;
if random(2)=0 then begin
if kj[i,j]>1 then ki[i,j]:=kj[i,j]-1;
if kj[i,j]=1 then ki[i,j]:=kj[i,j]+1;
end;
if random(2)=1 then begin
if kj[i,j]<7 then ki[i,j]:=kj[i,j]+1;
if kj[i,j]=7 then ki[i,j]:=kj[i,j]-1;
end;
// test writeln('kj:',kj[i,j],' / ki:',ki[i,j],' / num:',sc);
end;
end;
//writeln(n,' all right');
//шифруем теперь.
var p:array of string;
var pe:array of string;
var packs:array of string;
var simb:array of string;
var lib:array of string;
var simbt:array of string;
var l := new System.IO.StreamReader('input.txt', System.Text.Encoding.Default);
liba:=l.ReadLine;
var g:=length(liba);
end.