Implementace DKA 9/10
  case state of
    ...
    f6: begin
          if symbol = '=' then
          begin
            TOKEN := LEQ; {<=}
            break;
          end else
          if symbol = '>' then
          begin
            TOKEN := NEQ; {<>}
            break;
          end else
            ungetchar(symbol); {návrat symbolu}
            TOKEN := LTN; {<}
            break;
          end;
        end; {stav f6}
18/35
s
<
f6
<
=
f7
<=
>
f8
< >