Вычислите 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.