PROCEDURE RADIX (R,P: INTEGER);
   VAR D,S: INTEGER;
   BEGIN
    D:=R;
    S:=P;
   WHILE (S <> 0) DO
     BEGIN D:=D DIV 10;
           S:=S-1;
      END;
    K:=D MOD 10;
   END;