program ggg;
uses crt;
var s1,s2,rez:string;
p,t:char;
i,j,n:byte;
begin
clrscr;
write('Введите первое двоичное число: ');
readln(s1);
write('Введите второе двоичное число: ');
readln(s2);
i:=length(s1);
j:=length(s2);
if i n:=j;
for j:=1 to n-i do s1:='0'+s1;
end
else begin
n:=i;
for i:=1 to n-j do s2:='0'+s2;
end;
rez:='';
p:='0';
for i:=n downto 1 do
if (s1[i]=s2[i]) then
if (p=s1[i]) then
if p='0' then
rez:='0'+rez
else if p='0' then begin
rez:='0'+rez; end
else rez:='1'+rez
else
if p='0' then begin
rez:='0'+rez ;p:='1'; end
else begin rez:='1'+rez; p:='0'; end else
if p='0' then rez:='1'+rez else rez:='0'+rez;
if p='1' then rez:=p+rez;
writeln('ответ: ',rez);
end.