Someone

program dvejetainiai;
var sk:longint;
function bin(a:longint):longint;
var i, l, y, k:longint;
begin
l:=0;
y:=0;
while (a>0) do
begin
l:=l+1;
i:=a mod 2;
if (i>0) then i:=1;
if (l=1) and (i=0) then
begin
i:=2;
end;
y:=y*10+i;
a:=a div 2;
end;

a:=0;
for i:=1 to l do
begin
k:=y mod 10;
if (k=2) then k:=0;
a:=a*10 + k;
y:=y div 10;
end;

bin:=a;
end;

begin
write('Iveskite skaiciu: ');
read(sk);
sk:=bin(sk);
writeln('Dvejetainis: ', sk);
readln

end.