Дано целое число 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-2+3)*4*5=40,

(-1+2+3+4)*5=40

они могли обозначать союзы, знаки препинания, слова в один слог.