Implementace DKA 7/10
  case state of
    ...
    f2: begin {celé číslo}
          if symbol in ['0'..'9'] then
            str := str + symbol;
          else
          begin
            ungetchar(symbol); {návrat znaku}
              TOKEN := INTEGER;
              {převod hodnoty str na integer}
            break;
          end;
        end; {stav f2}
16/35
s
integer
f2
0..9
0..9