5 lines
108 B
Text
5 lines
108 B
Text
begin
|
|
integer a;
|
|
a := 3;
|
|
write( i_w := 1, s_w := 1, -a, 1 + number( not bitstring( a ) ) )
|
|
end.
|