1 PROGRAM ZWEIERPOTENZEN(OUTPUT);
3 VAR A,REST,N,W,S:INTEGER;
8 WHILE S<=A DO BEGIN W:=W+1; S:=S*10 END;
9 WRITE(" ":20-W - W DIV 3);
11 BEGIN IF (W MOD 3 = 0) THEN WRITE(" ");
12 S:=S DIV 10; WRITE((A DIV S) MOD 10 :1)
17 REPEAT IF (W MOD 3 = 0) THEN WRITE(" ");