Program String68;
Var 
  s, vs : String;
  k, i  : Integer;
Begin
  WriteLn('String -> ');
  Read(vs);
  s[1]  := 'a'; s[2]  := 'b';
  s[3]  := 'c'; s[4]  := 'd';
  s[5]  := 'e'; s[6]  := 'f';
  s[7]  := 'g'; s[8]  := 'h';
  s[9]  := 'i'; s[10] := 'j';
  s[11] := 'k'; s[12] := 'l';
  s[13] := 'm'; s[14] := 'n';
  s[15] := 'o'; s[16] := 'p';
  s[17] := 'q'; s[18] := 'r';
  s[19] := 's'; s[20] := 't';
  s[21] := 'u'; s[22] := 'v';
  s[23] := 'w'; s[24] := 'x';
  s[25] := 'y'; s[26] := 'z';
  k := 0;
  For i := 1 To Length(vs) Do
  Begin
    If vs[i] <> s[i] Then 
    Begin 
      k := i; 
      Break;  
    End;
  End;
  Writeln('Symbol -> ', k);
End.