#pas
function Sum(a,b:integer):integer;
begin
  asm
    MOV EAX,a
    ADD EAX,b
    MOV Result,EAX
  end;
end;