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