A+B问题

我就贴两段代码，跪着不说话：

var
a,b,c:dword;
begin
read(a,b);
while b<>0 do
begin
c:=a and b;
a:=a xor b;
b:=c shl 1;
end;
writeln(a);
end.

{$asmmode Intel}
 
var
a,b,c:longint;
 
begin
readln(a,b);
asm
mov eax,a
add eax,b
mov c,eax
end;
writeln(c);
end.