8 lines
126 B
Plaintext
8 lines
126 B
Plaintext
|
MODULE Log;
|
||
|
|
CONST a,b : INTEGER;
|
||
|
|
VAR x,y : INTEGER;
|
||
|
|
BEGIN x := 0; y := a;
|
||
|
|
WHILE y # 0 DO x := x + 1, y := y / 2 END
|
||
|
|
END Log.
|
||
|
|
|