program powersoftwo(output);
const m = 30; n = 90; { m >= n*log(2) }
d: array [0..m] of integer; {positive powers}
f: array [1..n] of integer; {negative powers}
begin l := 0; r := 1; d[0] := 1;
begin {compute and print 2**exp } c := 0;
begin d[i] := t-10; c := 1;
begin l := l+1; d[l] := 1
for i := m downto l do write(' ');
for i := l downto 0 do write(d[i]:1);
{compute and print 2**(-exp) }
f[j] := r div 2; r := r - 2*f[j]; write(f[j]:1)
f[exp] := 5; writeln('5'); r := 0