745 / Л.Р.№3 / Lab3_var_2

program zadacha;
uses crt;
var r,a,b,e:string; i,c,g:integer; t:boolean;
function suma(f,d:string):string;
var c,l:integer;
begin
l:=0;
for c:=32 downto 1 do
if ((f[c]='1') and (d[c]='1') and (l=0)) or
   ((f[c]='1') and (d[c]='0') and (l=1)) or
   ((f[c]='0') and (d[c]='1') and (l=1)) then begin
                                              suma[c]:='0';
                                              l:=1;
                                              end
else if ((f[c]='1') and (d[c]='0') and (l=0)) or
        ((f[c]='0') and (d[c]='1') and (l=0)) or
        ((f[c]='0') and (d[c]='0') and (l=1)) then begin
                                                   suma[c]:='1';
                                                   l:=0;
                                                   end
      else if ((f[c]='1') and (d[c]='1') and (l=1)) then begin
                                                         suma[c]:='1';
                                                         l:=1;
                                                         end
           else begin
                suma[c]:='0';
                l:=0;
                end;
end;
procedure dodat(var a:string);
var i:integer;
begin
i:=length(a);
while a[i]<>'1' do i:=i-1;
for i:=(i-1) downto 1 do
if a[i]='1' then a[i]:='0'
else a[i]:='1';
a:=concat(a,'0000000000000000');
end;
begin clrscr;
writeln('vvedite 1 mnognik'); readln(a); t:=true;
writeln('vvedite 2 mnognik'); readln(b);
if (length(a)<>16) or (length(b)<>16) then t:=false
                                      else for i:=1 to 16 do
                                      if ((a[i]<>'1') and (a[i]<>'0')) or ((b[i]<>'1') and (b[i]<>'0')) then t:=false;
if t=false then writeln('wrong chislo')
           else begin
                b:=concat('0000000000000000',b);
                e:='00000000000000000000000000000000';
                for i:=1 to 16 do if a[i]='0' then begin
                                                  for c:=1 to 31 do e[c]:=e[c+1];
                                                  e[32]:='0';
                                                  end
                                              else begin
                                                   for c:=1 to 31 do e[c]:=e[c+1];
                                                   e[32]:='0';
                                                   e:=suma(b,e);
                                                   end;
                delete(b,1,16);
                if (a[1]='0') and (b[1]='1') then begin
                                                  dodat(a);
                                                  e:=suma(a,e);
                                                  end
                      else if (a[1]='1') and (b[1]='0') then begin
                                                              dodat(b);
                                                              e:=suma(b,e);
                                                              end
                            else if (a[1]='1') and (b[1]='1') then begin
                                                                   dodat(a);
                                                                   dodat(b);
                                                                   a:=suma(a,b);
                                                                   e:=suma(a,e);
                                                                   end;
                 end;
writeln(e);
end.