Дано целое число n(> 0), проверить является ли оно представлением целого двоичного числа

var x,n : integer;

begin

x: = n;

while(n > 0) do

begin

  if( n mod 10 > = 2) then begin

      writeln('не двоичное число');

    break;

    end;

  n : = n div 10;

  end;

  writeln(x);

end.

1. 0,25 кбайт=256 байт = 2048 бит

2. каждый символ - 8 бит

3. 2048/8=256 символов

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.