else 　　　if ch in [′0′..′9′] 　　　　then 　　　　　begin(*number*) 　　　　　　k∶=0; 　　　　　　num∶=0; 　　　　　　sym∶=number; 　　　　　　repeat 　　　　　　　num∶=10*num+(ord(ch)-ord(′0′)); 　　　　　　　k∶=k+1; 　　　　　　　getch 　　　　　　until not(ch in [′0′..′9′]); 　　　　　　if k>nmax 　　　　　　　then error(30) 　　　　　end 　　　　else 　　　　　if ch=′:′ 　　　　　　then 　　　　　　　begin 　　　　　　　　getch; 　　　　　　　　if ch=′=′ 　　　　　　　　　then 　　　　　　　　　　begin 　　　　　　　　　　　sym∶=becomes; 　　　　　　　　　　　getch 　　　　　　　　　　end 　　　　　　　　　else sym∶=nul; 　　　　　　　end 　　　　　　else 　　　　　　　if ch=′<′ 　　　　　　　　then 　　　　　　　　　begin 　　　　　　　　　　getch; 　　　　　　　　　　if ch=′=′ 　　　　　　　　　　　then 　　　　　　　　　　　　begin 　　　　　　　　　　　　　sym∶=leq; 　　　　　　　　　　　　　getch 　　　　　　　　　　　　end 　　　　　　　　　　　else　sym∶=lss 　　　　　　　　　end 　　　　　　　　else 　　　　　　　　if ch=′>′ 　　　　　　　　　then 　　　　　　　　　　begin 　　　　　　　　　　　getch; 　　　　　　　　　　　if ch=′=′ 　　　　　　　　　　　　then 　　　　　　　　　　　　　begin 　　　　　　　　　　　　　　sym∶=geq; 　　　　　　　　　　　　　　getch 　　　　　　　　　　　　　end 　　　　　　　　　　　　else sym∶=gtr 　　　　　　　　　　end 　　　　　　　　　else 　　　　　　　　　　begin 　　　　　　　　　　　sym∶=ssym[ch]; 　　　　　　　　　　　getch 　　　　　　　　　　end 　　end (*getsym*);