25 lines
544 B
Text
25 lines
544 B
Text
BEGIN
|
|
|
|
PROCEDURE OUTOCT(N); INTEGER N;
|
|
BEGIN
|
|
PROCEDURE OCT(N); INTEGER N;
|
|
BEGIN
|
|
IF N > 0 THEN BEGIN
|
|
OCT(N//8);
|
|
OUTCHAR(CHAR(RANK('0')+MOD(N,8)));
|
|
END;
|
|
END OCT;
|
|
IF N < 0 THEN BEGIN OUTCHAR('-'); OUTOCT(-N); END
|
|
ELSE IF N = 0 THEN OUTCHAR('0')
|
|
ELSE OCT(N);
|
|
END OUTOCT;
|
|
|
|
INTEGER I;
|
|
WHILE I < MAXINT DO BEGIN
|
|
OUTINT(I,0);
|
|
OUTTEXT(" => ");
|
|
OUTOCT(I);
|
|
OUTIMAGE;
|
|
I := I+1;
|
|
END;
|
|
END.
|