var x,N : integer;
begin
x:= N;
while(N > 0) do
if( N mod 10 >= 2) then begin
writeln('Не двоичное число');
break;
end;
N := N div 10;
writeln(x);
end.
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.