745 / Л.Р.№3 / Lab3_var_9

uses crt;
var a,sum1:string[16];
e:boolean;
i,k,l,y,t:integer;
b,s:string[30];
d,p:array[1..30] of integer; sum:string[32];
begin
clrscr;
write('a=',a);
readln(a);
write('b=',b);
readln(b);
s:=('000000000000000000000000000000');
e:=false;
for i:=1 to length(a) do
if not((a[i]='0')or (a[i]='1')) then
begin
e:=true;
break;
end;
for i:=1 to length(b) do
if not((b[i]='0')or (b[i]='1')) then
begin
e:=true;
break;
end;
if not e then
if a[1]=b[1] then
sum1:='0'
else sum1:='1';
delete(a,1,1);
delete(b,1,1);
for i:=1 to length(b) do
b:=concat(b,'0');
for l:=1 to length(a) do
if a[l]='0' then
begin
for i:=length(b) downto l do
b[i]:=b[i-1];
b[l]:='0'
end
else if
a[l]='1' then
begin
for i:=length(b) downto l do
b[i]:=b[i-1];
b[l]:='0';
for i:=1 to 30 do
begin
if s[i]='0' then
d[i]:=0;
if s[i]='1' then
d[i]:=1;
if b[i]='0' then
p[i]:=0;
if b[i]='1' then
p[i]:=1;
end;
sum:='';
for i:=30 downto 1 do
begin
y:=y+d[i]+p[i];
begin
if y=0 then
begin
y:=0;
sum:=concat('0',sum);
end;
if y=1 then
begin
y:=0;
sum:=concat('1',sum);
end;
if y=2 then
begin
y:=1;
sum:=concat('0',sum);
end;
if y=3 then
begin
y:=1;
sum:=concat('1',sum);
end;
s:=sum;
end;
end;
end;
insert(sum1,sum,1);
write('sum=',sum);
readkey;
end.