Program P1379;

Var s:string;

s1:string;

p1,p2,p3:integer;

i,k:integer;

procedure tian;

begin

if (p1=1) then begin

for k:=1 to ((ord(s)-ord(s))-1) do

s1[k]:=chr(ord(s)+k);

delete(s,i,1);

insert(s1,s,i);

end;

if (p1=2) then begin

if (ord(s)