program a1_n1;
uses crt;
var a,b,c,d,e:integer;
    a_1,b_2,c_3,d_4,a_a,b_b,c_c,d_d:integer;
    a1,a2,a3,a4:Char;
begin
a1:='F';
a2:='O';
a3:='P';
a4:='E';
a:=Ord(a1);
b:=ord(a2);
c:=Ord(a3);
d:=Ord(a4);
  a_1:=Pred(a);a:=Pred(A_1);
  b_2:=b;
  c_3:=Pred(c); c:= Pred(c_3);
  d_4:=(d);
     a1:=chr(a);a2:=chr(b_2); a3:=chr(c); a4:= chr(d_4);




writeln('Слово', a1 ,a2 , a3, a4 );
readln();
writeln('Ну ....Как то так =) ');
readln()





end.