#pas
function SetVal:real;
var tmp:integer;
begin
  asm
    MOV tmp,5
  end;
  Result := tmp;
end;