Вычислите 7116 + 4516 .Ответ приведите в двоичной системе.

uses crt; function dec2bin(x:integer):string; var s:string; begin   s:='';   while x>0 do   begin      s:=chr(ord('0')+x mod 2)+s;      x:=x div 2;   end; dec2bin:=s; end;var a: integer;   begin clrscr;a:=7116+4516; writeln('ответ:',dec2bin(a)); end.